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ABSTRACT 


A  procedure  for  writing  finite  difference  analogs  of  the 
principles  of  continuum  mechanics  is  presented.  The  method 
leads  to  analogs  of  the  Integral  statements  of  mass  and 
momentum  conservation,  and  the  first  law  of  thermodynamics, 
which  are  exact  under  two  simple  discretization  assumptions, 
and  which  imply  an  exactly  conservative  finite  difference 
equation  for  the  total  energy.  The  method  and  the  equations 
which  follow  from  it  apply  to  general  systems  of  continuous 
media,  hydrodynamic  or  otherwise.  The /finite  difference 
equations  form  the  basis  of  a  set  of  computer  codes  for  the 
calculation  of  motion  described  by  one  and  two  spatial 
coordinates.  The  codes  permit  the  use  of  arbitrary  time 
dependent  coordinate  systems  to  solve  specific  problems. 

The  AFTON  I  code,  which  Qeals  with  linear,  cylindrical,  and 
spherical  one-dimensional  systems,  has  been  expanded  to 
Include  general  stresses  and  strains.  Some  preliminary 
attempts  have  been  made  to  define  an  optimum  coordinate  mesh 
to  describe  continuum  motion,  and  specific  problems  have  been 
solved  by  AFTON  I  using  these  coordinate  systems.  For 
spherically  diverging  waves  in  an  elastic  medium,  the  solutions 
obtained  have  been  more  accurate  than  those  given  by  numerical 
Lagranglan  methods  with  the  same  number  of  mesh  points, 
although  some  shock  front  erosion  is  evident,  apparently  as  a 
result  of  deficiencies  in  the  coordinate  systems  employed. 
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SECTION  1.0 


THE  CONSTRUCTION  OP  FINITE  DIFFERENCE  EQUATIONS 
FOR  TRANSIENT  CONTINUUM  MOTION  IN  TWO  SPACE  DIMENSIONS 

1.1  THE  AFTON  CODES:  GENERAL  REMARKS 

The  name  "AFTON1'  Is  used  to  denote  a  set  of  computer  codes 
which  are  used  to  solve  transient  continuum  motion  problems. 
Work  on  these  codes  was  begun  about  six  years  ago  at  the 
Lawrence  Radiation  Laboratory  In  Livermore,  California. 

However,  their  development  has  beer,  pursued  most  Intensively 
In  the  past  two  or  three  years  under  Air  Force  Contracts 
AF29(601)-5971,  "Development  of  a  Computer  Program  for 
Predicting  Free  Field  Ground  Motion,"  and  AF29(60l)-6683 
(same  title)  as  part  of  Project  Ferris  Wheel.  Code  modifi¬ 
cations  which  are  particularly  useful  In  the  solution  of 
viscous  compressible  fluid  flow  problems,  were  made  under 
NASA  Contract  NAS8-11400,  "Calculation  of  Two-Dimensional 
Turbulent  Flow  Fields." 

Mainly  as  a  result  of  work  on  the  contracts  cited,  there  are 
now  three  AFTON  codes,  namely,  AFTON  1,  AFTON  2A,  and  AFTON  2P. 
AFTON  1  solves  transient  continuum  motion  problems  In  systems 
so  symmetric  as  to  require  just  one  spatial  coordinate  for 
their  description.  It  Includes  the  three  geometrically  possible 
one-dlmenslonal  cases,  namely,  linear,  cylindrical  and  spherical 
motions.  The  AFTON  2P  code  solves  transient  continuum  motion 
problems  In  plane  symmetric  systems  whose  motion  Is  the  same 
In  every  plane  normal  to  some  one  direction,  and  which  can 
therefore  be  described  In  terms  of  two  Cartesian  position 
coordinates  and  the  time.  The  AFTON  2A  code  solves  problems  of 
transient  continuum  motion  In  axlsymmetrlc  systems,  l.e. , 
systems  whose  motion  Is  the  same  In  every  half-plane  bounded 
by  some  one  straight  line,  and  which  can  therefore  be  described 
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In  terms  of  the  radial  and  axial  position  coordinates  of  a 
cylindrical  coordinate  system ,  and  the  time. 

The  main  purpose  of  this  report  Is  to  provide  a  detailed 
description  of  the  AFTON  computer  codes  which  have  come  into 
being  In  the  past  year  under  Contract  AF29(60l)-6683.  The 
report  Is  also  Intended  to  give  an  account  of  the  method  of 
construction  of  finite  difference  equations  for  continuum 
motion  on  which  all  the  AFTON  codes  are  based.  Two-dimensional 
motion  with  plane  symmetry  Is  complicated  enough  to  afford  a 
reasonably  complete  description  of  thea  method,  and  Is  at  the 
same  time  simple  enough  to  avoid  much  of  the  algebraic 
complexity  encountered  In  our  formulation  of  finite  difference 
equations  for  more  general  types  of  motion.  The  explanation 
of  the  finite  difference  method  embodied  In  the  AFFON  codes, 
and  the  derivation  of  specific  finite  difference  equations. 

Is  therefore  presented  here  chiefly  for  two-dimensional  plane- 
symmetric  continuum  motion  —  the  case  to  which  AFTON  2P 
specifically  applies. 

1.2  FINITE  DIFFERENCE  MESHES  AND  ZONES  IN  AFTON  2P  AND  AFTON  2A 

Numerical  procedures  for  solving  the  equations  of  continuum 
mechanics  all  begin  by  replacing  the  continuous  variables  of 
space  and  time  by  a  discrete  set  of  points.  As  the  density 
of  Its  points  Is  Increased,  the  point  set  more  and  more  closely 
approximates  the  space-time  continuum,  at  least  In  the  sense 
that, any  piecewise  continuous  function  can  be  represented 
more  and  more  accurately  by  specifying  Its  discrete  values  at 
the  points  of  the  Bet.  Finite  difference  equations  are  then 
written  which  are  approximate  expressions  of  the  principles  of 
continuum  mechanics,  and  high-speed  computers  are  programmed 
to  perform  the  operations  of  arithmetic  and  logic  required  by 
the  finite  difference  equations. 
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The  most  basic  statement  of  the  principles  of  continuum 
motion  consists  of  Integral  equations  for  conservation  of 
mass,  energy  and  momentum,  and  for  the  First  Law  of  thermo¬ 
dynamics  (Ref.  l),  although  less  fundamental  differential 
equations  have  served  as  a  starting  point  for  most  numerical 
procedures  which  describe  continuum  motion.  The  Integral 
equations  take  on  their  simplest  form  for  a  closed  finite 
region  whose  boundary  surface  moves  with  the  local  velocity 
of  matter,  and  which,  therefore,  always  contains  the  same 
material  particles.  This  description  of  continuum  motion  Is 
termed  "Lagranglan,"  and  a  sheet  of  material  particles  Is 
called  a  Lagranglan  coordinate  surface.  The  reason  for  the 
special  Importance  of  the  Lagranglan  form  of  the  continuum 
mechanical  laws  is  simply  that  Newton's  Second  Law,  on  which 
all  classical  mechanics  rests,  applies  In  the  first  Instance 
to  particles  of  constant  mass.  The  statement  of  the  principles 
of  continuum  motion  In  Integral  form  for  finite  Lagranglan 
regions  is  here  termed  "more  basic"  than  related  differential 
statements,  because  such  a  formulation  places  lighter 
continuity  restrictions  on  the  various  possible  flow  fields. 

The  AFTON  codes  are  based  on  a  specific  method  for  constructing 
finite  difference  approximations  to  the  laws  of  continuum 
mechanics  in  Integral  (not  necessarily  Lagranglan)  form  (Refs.  2, 
3,  and  4).  Broadly  stated,  the  central  Ideas  of  the  method 
are  that  the  finite  difference  equations  should  be  as  self- 
consistent  as  possible,  and  also  should  constitute  as  direct 
a  statement  as  possible  of  the  underlying  principles  of 
continuum  motion  on  finite  regions.  The  particular  aspect  of 
consistency  deemed  most  Important  Is  /the  complete  and  exact 
equivalence  of  mass  conservation,  energy  conservation  and  the 
First  Law  of  thermodynamics,  when  these  are  coupled  with 
momentum  conservation.  Thus,  we  insist  that  the  finite 
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difference  equations  for  mass  and  momentum  conservation, 
and  the  First  Law,  Imply  an  exactly  conservative  finite 
difference  equation  for  total  energy.  Application  of  the 
criterion  of  consistency  has  led  to  finite  difference 
equations  with  an  exact  energy  conservation  property  in  the 
sense  Just  defined;  these  equations  have  the  satisfying 
property  that  they  can  each  be  given  a  precise  meaning  in 
elementary  physical  and  geometric  terms. 

The  finite  difference  technique  used  in  the  AFTON  codes  is 
of  the  "time-marching"  kind.  That  is,  the  space  continuum 
is  replaced  by  a  discrete  mesh  of  points,  and,  starting  with 
a  system  in  a  known  state  at  some  Initial  time,  the  variables 
of  the  motion  are  updated  by  a  discrete  time  Increment  at  all 
points  of  the  space  mesh,  according  to  some  finite  difference 
equations  of  motion.  The  updating  process  is  then  repeated 
using  the  just-calculated  values  of  the  variables  of  the 
motion  as  fresh  initial  value  data,  and  so  on.  Owing  to  the 
assumed  symmetry  of  the  motion,  a  space  mesh  for  AFTON  2P  need 
only  be  defined  as  an  array  of  points  in  a  single  plane,  the 
variables  of  the  motion  having  identical  values  at  correspond¬ 
ing  points  of  all  planes  parallel  to  this  one;  for  AFTON  2A, 
the  variables  of  the  motion  have  identical  values  at  correspond¬ 
ing  points  on  all  half-planes  (azimuthal  planes)  bounded  by 
some  one  straight  line.  As  is  customary  (but  not  necessary) 
in  computer  codes  describing  motion  in  two  space  dimensions, 
the  points  of  an  AFTON  2P  or  AFTON  2 A  finite  difference  mesh 
are  topologically  equivalent  to  the  comer  points  of  a  set  of 
unit  squares  which  cover  a  rectangular  region  in  one-to-one 
fashion.  The  mesh  points  are,  therefore,  the  vertices  of 
quadrilaterals  which  can  be  produced  by  the  continuous 
distortion  of  a  rectangular  array  of  unit  squares.  The  region 
of  two-dimensional  plane  flow  is  thus  covered  by  elementary 
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quadrilaterals;  these  quadrilaterals  are  the  "zones"  of  the 
finite  difference  mesh.  Actually,  It  Is  basic  to  the  method 
of  differencing  which  underlies  the  AFTON  codes  that  real 
physical  systems  have  finite  extension  In  a  direction  normal 
to  the  symmetry  plane  In  which  the  quadrilaterals  lie.  What 
appears  In  the  plane  of  flow  as  a  side  of  a  quadrilateral 
zone  actually  represents  the  Intersection  of  the  flow  plane 

with  another  plane  at  right  angles  to  it.  Thus,  In  the  case 

» 

of  AFTON  2P,  we  consider  the  medium  to  be  divided  Into  quadri¬ 
lateral  slabs  of  unit  thickness,  each  of  which  can  be  generated 
by  moving  a  quadrilateral  zone  through  a  unit  distance  normal 
to  the  plane  of  flow.  A  quadrilateral  zone  Is  then  just  a 
cross-section  of  a  quadrilateral  slab  In  a  symmetry  plane. 

The  quadrilateral  slab,  which  Is  a  solid  figure.  Is  the  basic 
geometric  entity  of  the  AFTON  2P  finite  difference  mesh.  It 
is  a  polyhedron  with  two  parallel  congruent  quadrilateral  faces 
and  four  rectangular  faces  normal  to  the  quadrilaterals.  These 
geometric  figures  are  shown  in  Figure  1.  In  the  case  of  AFTON 
2A,  the  system  Is  divided  into  "quadrilateral  wedges",  a 
quadrilateral  wedge  being  a  polyhedron  bounded  by  two  nearly 
parallel  azimuthal  planes,  and  having  a  quadrilateral  cross- 
section  In  any  azimuthal  plane  between  these  two.  Figure  12  of 
Appendix  I  depicts  this  polyhedron.  (The  figure  appears  In 
an  Appendix  because  the  discussion  of  two-dimensional  motion  In 
the  text  of  this  report  Is  limited  almost  entirely  to  the  plane- 
symmetric  case. ) 

The  Integral  equations  (Ref.  1)  and  associated  finite  difference 
equations  which  underlie  AFTON  2P  have  been  written  In  sufficient 
generality  to  Include  non-Lagranglan  as  well  as  Lagranglan 
descriptions  of  continuum  motion.  Correspondingly,  the  code 
Itself  contains  a  subroutine  which  defines  the  coordinate  system 
to  be  used  for  any  given  problem.  However,  t)\e  Lagranglan  case 
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Plane  of  Plow 


will  be  discussed  first,  since  the  finite  difference  technique 
as  it  applies  to  AFTON  2P  is  most  simply  explained  for  this 

case.  The  points  of  the  finite  difference  mesh  are  then  mass 

‘ 

points  whose  velocities  provide  a  discrete  approximation  to 
the  material  velocity  field  of  the  continuous  medium.  It  is 
also  true  in  the  Lagranglan  case  that  a  quadrilateral  slab  is 
a  finite  mass  element  consisting  of  the  same  material  particles 
at  one  time  as  at  any  other  time,  and  a  quadrilateral  zone  —  a 
cross-section  of  a  quadrilateral  slab  in  a  symmetry  plane  —  is 
defined  by  one  specific  set  of  eo-planar  particles.  Motion  of 
the  vertices  of  a  quadrilateral  zone  therefore  produces  distortion 
("strain")  and  attendant  changes  in  all  the  flow  variables,  for 
a  finite  element  of  material.  We  now  discuss  the  calculation 
of  these  changes. 

1.3  THE  CALCULATION  OP  THERMODYNAMIC  VARIABLES  IN  AFTON  2P 
FOR  LAORANQIAN  MESHES  (HYDRODYNAMIC  MOTION) 

The  variables  of  the  motion  are  divided  into  two  classes,  namely, 
those  associated  with  the  vertices  of  zones,  and  those  associated 
with  their  centers  or  interiors.  The  first  class  consists  of 
mesh  point  positions  and  their  time  derivatives,  e.g.,  their 
velocities  (dynamic  variables),  while  the  second  class  consists 
essentially  of  strain,  stress,  and  internal  energy  (thermo¬ 
dynamic  variables).  The  calculation  of  zone-centered  variables, 
which  we  describe  first,  proceeds  under  two  assumptions  which 
are  fundamentally  alike: 

(a)  A  material  element  which  initially  occupies  a 
quadrilateral  slab  region,  always  has  the  shape  of  a 
quadrilateral  slab. 

(b)  Zone-centered  variables  are  constant  in  value 
throughout  a  quadrilateral  slab  region  at  any  given 
time,  and  also  change  at  a  constant  rate  during  any 
particular  time  step. 


7 


With  respect  to  assumption  (a),  we  note  that  the  particles 
Initially  comprising  a  side  of  a  quadrilateral  zone  will  in 
general  not  remain  co- linear;  likewise,  the  corresponding 
face  of  the  quadrilateral  slab  associated  with  the  zone  usually 
will  not.  In  physical  reality,  remain  rectangular.  Rather, 
the  Initially  rectangular  Lagranglan  surfaces  of  a  quadri¬ 
lateral  slab  will  ordinarily  deform  Into  more  general  curved 
shapes.  Assumption  (a)  therefore  Imposes  a  nonphysical  constraint 
on  the  system,  which  is  part  of  the  price  paid  for  replacing 
the  space  continuum  by  a  discrete  mesh  of  points.  Obviously, 
assumption  (b)  entails  a  similar  nonphysical  restriction;  real 
physical  stresses  and  strains  generally  vary  over  finite 
distances.  If  the  error  from  these  sources  Is  unacceptable, 
then  It  can  be  reduced  by  Increasing  the  density  of  mesh  points 
to  provide  a  better  approximation  to  a  continuum.  Moreover, 
while  It  Is  not  entirely  obvious.  Increasing  the  density  of 
mesh  points  is  the  only  way  to  reduce  this  decretization  error; 
a  close  look  at  the  rate  of  decay  of  numerical  solution  error 
with  Increasing  mesh  point  density  shows  thrft  the  discretization 
error  cannot  be  made  to  vanish  more  rapidly  by  pennlttlng  the 
sides  of  a  quadrilateral  zone  to  be  more  general  curves  than 
straight  lines  —  straight  lines  with  "higher- order"  corrections. 
As  is  shown  elsewhere  (Ref.  4),  the  hyperbolic  character  of 
the  equations  of  continuum  motion  makes  It  Impossible  to  Increase 
the  rates  of  decay  of  numerical  solution  errors  by  means  of 
higher-order  differencing  techniques. 

The  calculation  of  the  change  In  the  volume  of  a  quadrilateral 
slab  produced  by  the  motion  of  .the  vertices  of  Its  associated 
quadrilateral  zone  provides  the  key  to  the  construction  of  the 
finite  difference  equations  of  APT  ON  2P.  In  making  the  calcula¬ 
tion,  we  adopt  the  following  definitions  and  conventions: 
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(1)  Y,  r,  U,  A  denote  volume,  position,  material 
velocity,  and  vector  area,  respectively. 

(2)  The  superscripts  1  and  o  refer  to  a  "later 
time"  t1,  and  an  "earlier  time"  t°,  separated  by 
the  Interval  At  -  t1  -  t°. 

(3)  If  no  superscript  Is  attached  to  a  variable.  It 
Is  understood  to  be  defined  at  some  time  between  t° 
and  t1,  In  particular,  the  position  vector  of  a 
point,  without  a  superscript.  Is  by  definition  equal 
to  the  arithmetic  mean  of  the  positions  of  the  point 
at  the  two  times  t1  and  t°,  l.e., 

T  -  i(r*  +  r°).  (1) 

(4)  Position  and  velocity  subscripts  refer  to  the 
mesh  points  labeled  as  In  Figure  1. 

(3)  The  vector  area  Aga  Is  the  rectangular  surface 
generated  by  moving  the  side  of  the  quadrilateral 
zone  of  Figure  1  between  the  vertices  0,  a,  through 
a  unit  distance  normal  to  the  plane  of  the  figure. 

The  sense  of  the  vector  area  A^a  Is  that  of  the 
Inner  normal  to  the  quadrilateral.  Thus  If  one 
encounters  point  a,  and  then  the  point  8,  as  the 
perimeter  of  the  quadrilateral  Is  traversed  clock¬ 
wise,  then 

*8a  -  tes  -  £a>^ 
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where  k  Is  a  unit  vector  normal  to  the  plane  of  flow 


(6)  The  velocity  of  a  point  Is  related  to  Its 
position  r1  and  r°  at  the  times  t1  and  t°  according 
to 

u  .  (p1  -  r°)/4t  (3) 

It  can  be  seen  that  Eq.  3  Involves  the  kind  of  discretization 
error  entailed  In  assumption  (b)  above;  in  this  case  the 
velocity  Is  taken  to  be  constant  over  a  finite  time  Interval, 
namely  At.  One  can  now  show  by  an  exact  calculation  of  the 
volume  of  a  quadrilateral  slab  that 

-  (Y1  .  Y° )/ At  .  i(u2  +  Uj)-a21  +  i(u3  +  u2)-a32 

+  i(fi,  +  «3)-A43  +  i(2x  +  «i,)-Al2t 

or 

-  (Y1  -  Y°)/At  -  +  A21)  +  U2«i(A21  +  A32) 

+  I?3*^C^32  +  -^3^  +  JV^^43  +  A^ 

-  5i*(a1a  +  A^)  +  u2-(A2^  +  a22) 

+  ^3*^32  +  -33^  +  ^4*^42  +  -a4^ 

where  the  underlined  subscripts  a,  etc.,  refer  to  the  midpoints 
of  the  sides  of  zone  (a)  as  shown  schematically  In  Figure  2. 

Equation  4  has  the  geometric  Interpretation  that  the  change  In 
the  volume  of  a  quadrilateral  slab  In  a  time  Interval  At  Is 
equal  to  the  algebraic  sum  of  the  volumes  swept  out  by  the  four 
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Figure  2 

SCHEMATIC  DIAGRAM  OF  THE  POINTS  AND  SIDES  OF  THE  FOUR 
QUADRILATERAL  ZONES  SHARING  A  GIVEN  MESH 
POINT  AS  A  COMMON  VERTEX 
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rectangular  faces  of  the  slab  normal  to  the  plane  of  flow. 

If  each  face  moves  with  a  velocity  equal  to  the  arithmetic 
mean  of  the  velocities  of  Its  end  edges.  Two  points  should 
be  emphasized  here.  First,  this  geometric  representation  is 
concrete  and  precise;  by  time- averaging  the  positions  of  the 
quadrilateral  zone  vertices,  one  obtains  the  quadrilateral 
whose  sides  define  the  moving  areas  of  the  quadrilateral  slab, 
and  each  of  these  areas  moves  uniformly  with  the  average  of 
the  velocities  of  the  two  vertices  It  subtends.  Secondly, 
the  volume  change  so  calculated  Is  exact,  regardless  of  the 
time  Interval  At  or  of  the  positions  of  the  vertices  of  the 
quadrilateral  zone  at  the  beginning  and  end  of  this  Interval. 
However,  this  geometric  Interpretation  of  the  volume  change 
Is  not  unique.  For  example,  the  righthand  side  of  Eq.  k  can 
be  rewritten  in  the  form  shown  in  Eq.  5.  It  is  then  natural 
to  associate  half  of  each  rectangular  face  of  the  quadri¬ 
lateral  slab  with  one  of  the  two  edges  of  this  face  normal  to 
the  plane  of  flow.  If  each  pair  of  half-faces  meeting  at  such 
an  edge  Is  allowed  to  move  uniformly  with  the  velocity  of  the 
edge,  then  the  resulting  rates  at  which  the  half-face  pairs 
sweep  out  volume,  summed  over  the  four  pairs,  is  exactly  the 
rate  of  change  of  volume  of  the  quadrilateral  slab. 

According  to  assumption  (b),  thermodynamic  variables  such  as 
stresses  and  Internal  energies  are  considered  to  be  properties 
of  quadrilateral  slabs  as  a  whole.  These  variables  are  up¬ 
dated  for  general  stresses  and  strains  by  an  extension  of  a 
standard  numerical  hydrodynamic  procedure  in  which  a  finite 
difference  analog  of  the  First  Law  is  satisfied  simultaneously 
with  the  constitutive  equation  for  a  given  medium  (Ref.  5 h* 

In  the  hydrodynamic  case,  the  change  in  the  Internal  energy  of 
a  quadrilateral  slab  Is  Just  Its  volume  change  (given  by  Eq.  4), 


multiplied  by  the  negative  of  the  arithmetic  mean  of  the 
pressures  in  the  slab  at  the  times  t1  and  t°.  If  an 
equation  of  state  is  used  to  eliminate  the  new  pressure 
(i.e.,  the  pressure  at  time  t1)  from  the  finite  difference 
analog  of  the  First  Law,  then  the  fact  that  equations  of 
state  generally  involve  the  internal  energy  renders  the 
First  Law  analog  an  implicit  equation  for  the  new  internal 
energy.  In  this  calculation,  it  is  worth  noting  that  if  the 
pressure  in  the  quadrilateral  slab  were  Indeed  uniform  and 
equal  to  its  mean  value  on  the  time  Interval  At,  then  the 
calculation  of  the  change  in  the  internal  energy  of  the  slab 
as  well  as  its  volume  change,  would  be  exact.  Thus,  under 
assumptions  (a)  and  (M,  all  thermodynamic  variables  are 
computed  exactly.  The  relevant  equations  for  hydrodynamic 
motion  are  the  First  Law  analog 

E1  -  E°  =  -  (P  +  Q)  (Y1  -  Y°) 
and  the  equation  of  state 

P1  -  0(EVm,  YVm) 

Here  G  is  some  (known)  function  of  two  variables,  and  P, 

E,  m  denote  the  pressure,  internal  energy  and  mass  of  the 
quadrilateral  slab,  respectively,  the  mass  being  constant  in 
the  Lagrangian  case  under  discussion.  Also,  Q  is  a  genera¬ 
lization  of  thfe  artificial  viscosity  of  Richtmyer  and  von 
Neumann,  such  as  that  given  by  Noh  (Ref.  6)j  Q  is  computed 
explicitly  knowing  Y,  while  P1  and  E*  must  be  obtained  by 
solving  Eqs.  6  and  7  simultaneously. 


1.4  THE  CALCULATION  OF  THERMODYNAMIC  VARIABLES  IN  AFTON  2P 
FOR  LAGRANGIAN  MESHES  (GENERAL  STRESS  AND  STRAIN) 

For  general  plane  two-dimensional  motion,  the  procedure  for 
writing  an  exact  finite  difference  analog  of  the  First  Law,  even 
under  assumptions  (a)  and  (b),  is  not  so  obvious  as  for 
hydrodynamic  motion.  In  fact,  it  will  be  seen  later  that  an 
exact  analog  of  the  First  Law  can  be  written  only  for  triangular 
zones  and  not  for  more  general  polygons  such  as  quadrilaterals. 

In  obtaining  our  finite  difference  analog  of  the  First  Law  for 
general  3tress  and  strain,  the  change  in  the  volume  of  the  zone, 
as  given  in  Eq.  5,  is  of  prime  importance.  Introducing  this 
expression  for  the  volume  change  into  Eq.  6  leads  directly  to 
a  finite  difference  analog  of  the  First  Law  which  can  be  used 
for  any  stress,  hydrodynamie  or  otherwise,  and  which  Is  exact 
in  the  hydrodynamic  case  under  assumptions  (a)  and  (b).  This 
combination  of  Eqs .  5  and  6  is 

4 

E^E0  =  At  £  .  (8) 

i=l 

For  hydrodynamic  motion  it  follows  from  Eqs.  5  and  6,  that  the 
forces  F^,  ...,  F^  In  Eq.  8  are  given  by  the  equations 

Zi  =  (p+Q)Mai4+a21) 

=  (P+QMA^+A^)  ,  etc.  (9) 

To  compute  the  change  in  the  internal  energy  for  general  stresses 
we  replace  the  scalar  hydrodynamic  stress  (P+Q)  of  Eq.  8  by  the 
stress  tensor  c;  a  might  be  the  sum  of  a  thermodynamic  stress 
tensor  P  and  an  artificial  viscosity  tensor  Q,  but  there  is  no 
point  here  in  specializing  the  definition  of  o  in  this  way. 

Again,  in  accord  with  assumption  (b),  o  is  assumed  to  be  constant 
during  a  time  step  throughout  any  particular  quadrilateral  slab. 
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The  definitions  of  the  forces  F^,  .  ..,  F^  then  become 

-1  =  9  ^-la  +  ^dl  ),  etc.,  (10) 

where  the  multiplication  called  for  in  Eq.  10  is  that  of  a 
matrix  with  a  vector. 

As  Eq.  8  is  written,  it  does  not  consist  of  terms  related  in  • 
any  self-evident  Way  to  internal  energy  changes,  even  in  the 
hydrodynamic  case.  To  make  Eq.  8  more  plausible,  it  is  useful 
to  recall  that  ever,  for  hydrodynamic  materials,  the  familiar 
expression  -Pi  for  the  rate  of  change  for  internal  energy  refers 
only  to  an  overall  volume  change,  which  is  not  the  most  elementary 
process  for  producing  an  internal  energy  change.  The  less-than- 
fundamental  status  of  -PY  as  the  rate  of  change  of  internal 
energy  is  evident  at  once  when  one  has  to  deal  with  nonhydro¬ 
dynamic  stresses .  The  stress  acting  on  an  element  of  area  then 
depends  upon  the  orientation  of  the  element's  normal,  and  changes 
in  total  volume  can  no  longer  be  related  uniquely  to  changes  in 
internal  energy  for  a  given  stress  field.  Simple  extensions 
(i.e.,  one -dimensional  linear  expansions  and  contractions)  are 
more  elementary  and  basic  processes  for  describing  internal  energy 
changes  than  are  volume  dilatations,  as  evidenced  by  the  fact 
that  total  volume  changes  can  be  expressed  i._  erms  of  simple 
extensions,  but  not  the  reverse.  By  interpreting  the  right-hand 
member  of  Eq.  8  in  terms  of  one -dimensional  linear  displacements, 
Eq.  8  can  be  '..iade  more  reasonable  than  it  now  appears  as  an 
expression  of  the  First  Law  -  and  no  less  plausible  for  general 
stresses  than  for  hydrodynamic  media. 

As  an  expression  for  the  change  of  internal  energy,  the  right- 
hand  member  of  Eq.  8  presents  one  obvious  problem;  namely,  its 
terms  are  all  defined  only  on  the  surface  of  a  material  element, 
whereas  "internal" ' energy  is  in  fact  a  quantity  associated  in  an 
essential  way  with  the  interior  of  a  material  region.  Changes 
in  internal  energy  cannot  be  calculated  simply  from  the  forces 


15 


exerted  on  the  surface  of  a  piece  of  material.  They  must  be 
computed  as  a  sum  of  changes  taking  place  throughout  the 
material’s  entire  volume.  If  this  were  not  so,  we  would  have 
a  conservation  theorem  for  the  internal  energy  itself;  the 
fundamental  difference  between  a  quantity  which  is  conserved 
and  one  which  is  not  lies  precisely  in  whether  or  not  changes 
in  the  total  amount  of  the  quantity  within  a  given  region  can 
be  computed  from  variables  defined  only  on  the  surface  of  the 
region.  For  internal  energy,  the  increments  of  change  to  be 
summed  throughout  the  region  must  be  computed  on  subregions 
small  enough  so  that  the  stress  in  each  subregion  can  be  taken 
with  negligible  error  to  be  constant .  According  to  assumption 
(b),  a  quadrilateral  slab  -  however  large  -  is  small  enough 
so  that  the  stress  can  be  considered  constant  throughout  its 
volume.  It  Is  for  this  reason  that  the  right-hand  side  of 
Eq.  8,  which  consists  only  of  terms  defined  on  the  surface  of 
a  quadrilateral  slab  is  an  exact  expression  for  the  change  of 
internal  energy,  even  though  the  calculation  of  an  internal 
energy  change  must  generally  be  made  by  summation  over  tiny 
elements  which  fill ■ the  Interior  of  the  slab.  Nevertheless, 
since  Internal  energy  changes  are  fundamentally  volume- 
computed  quantities,  Eq.  8  will  have  to  be  rewritten  In  such 
a  way  that  the  forces  appearing  in  It  act  on  interior  areas, 
rather  than  surface  areas,  of  a  quadrilateral  slab. 

To  transform  Eq.  8  so  that  It  Involves  only  interior  areas  of 
a  quadrilateral  slab,  we  invoke  an  elementary  geometric  theorem. 
This  theorem,  which  is  a  cornerstone  of  the  finite  difference 
method  embodied  in  the  AFTON  codes,  simply  states  that  the  sum 
of  the  vector  areas  of  any  polyhedral  surface  is  zero,  where 
the  sense  of  the  vector  area  associated  with  each  plane  face  of 
the  polyhedron  Is  understood  to  be  that  of  the  outer  normal  to 
the  enclosed  volume.  The  truth  and  meaning  of  the  theorem 
can  be  exhibited  in  the  following  intuitive  way.  Viewed  from 
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any  aspect  at  a  sufficiently  great  distance,  a  polyhedron 
presents  a  cross-section  which  is  at  one  and  the  same  time  the 
projection  of  the  front  side  of  the  polyhedron  on  a  plane  normal 
to  the  viewer’s  line  of  sight,  and  also  of  its  back  side.  The 
area  of  the  cross  section  is  equal  in  magnitude  to  the  component 
of  the  resultant  vector  area  of  the  plane  surfaces  making  up  the 
front  side  of  the  polyhedron,  and  is  also  the  negative  of  the 
corresponding  component  of  the  resultant  area  of  the  faces  of 
the  back  side.  Since  the  faces  of  the  front  and  back  side  make 
up  the  entire  (closed)  polyhedral  surface,  the  sum  of  all  the 
vector  areas  is  plainly  zero.  The  theorem  is  not  subtle  and 
certainly  not  new,  but  is  so  central  to  our  differencing 
technique  afi  to  call  for  more  than  cursory  mention  here. 

With  respect  to  our  discussion  of  the  calculation  of  internal 
energy  changes,  we  can  now  transform  Eq.  8  so  that  its  forces 
refer  only  to  surfaces  in  the  interior  of  the  quadrilateral 
slab.  The  theorem  Just  discussed  implies,  for  example,  that 
Ala  +  A^  +  Aad  +  Afla,  pluB  the  sum  of  the  areas  of  the  two 

plane  parallel  quadrilateral  surfaces  of  the- slab,  is  zetfo. 

Since  the  surfaces  of  any  quadrilateral  slab  parallel  to  the 
symmetry  plane  have  equal  area  but  opposite  sense,  their  vector 
sum  vanishes .  We  therefore  conclude  that 

-la  +  %L  =  '  Gad  +  t11) 

Thus  Eq.  8  can  be  written  in  the  form 

E1^0  =  it  [f^.  (u,  -  24)  +  Fea  •  (ft,  -  %) 

(12), 

+  rla  •  (u3  -  24)  +  Pad  •  Ola  -  <0  ]• 

In  the  rearranged  form  of  Eq.  12,  Eq.  8  can  now  be  interpreted 
as  l  sum  of  internal  energy  changes  produced  by  the  simple 
extension  of  material  in  directions  normal  to  the  forces  exerted 
on  specific  interior  surfaces  of  the  quadrilateral  slab.  Each 
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of  the  four  interior  surfaces  corresponding  to  the  line  segments 
aa,  2a,  2.a,  ad  is  represented  on  the  right-hand  side  of  Eq.  12 
by  one  such  term.  These  surfaces  are  "complete"  in  the  sense 
that  they  exhaustively  subdivide  the  slab  into  mutually  exclusive 
volumes.  The  velocity  difference  appearing  in  a  term  of  Eq.  12 
has  a  component  in  the  direction  of  the  force  acting  on  the 
interior  area  relevant  to  that  term.  This  component  of  the 
velocity  difference  measures  the  rate  of  uniaxial  spreading  or 
contraction  of  material  which,  multiplied  by  the  magnitude  of 
the  force,  gives  the  rate  of  production  of  internal  energy  due 
to  particle  displacements  along  the  line  of  the  force. 

While  it  introduces  the  essential  feature  of  uniaxial  contri¬ 
butions  to  the  overall  internal  energy  change  of  a  zone,  Eq.  12 
can,  nevertheless,  be  shown  to  be  quantitatively  exact  under 
assumptions  (a)  and  (b)  only  for  simple  displacement  fields. 

For  example,  if  the  quadrilateral  slabs  are  rectangular,  and 
displacements  take  place  parallel  to  one  set  of  faces,  then 
Eq.  12  clearly  gives  the  change  in  internal  energy  correctly 
whether  the  medium  is  hydrodynamic  or  not. 

However,  as  noted  earlier,  internal  energy  changes  computed 
from  Eq.  8  under  assumptions  (a)  and  (b)  cannot  generally  be 
exact.  This  situation  stems  from  the  fact  that  under  assump¬ 
tion  (a)  a  linear  displacement  is  required  to  produce  the 
homogeneous  strain  of  assumption  (b).  The  displacement  field 
must  be  such  as  to  distort  a  quadrilateral  zone  of  material 
from  a  strain-free  state  to  the  arbitrarily  strained  config¬ 
uration  presented  by  the  zone  at  a  given  instant  of  time  in 
the  course  of  the  numerical  calculation.  Hence,  the  constant 
coefficients  of  a  linear  coordinate  transformation  must  be 
determined  in  such  a  way  that  the  transformation  will  distort 
a  given  polygon  into  another  given  polygon.  Now,  the  most 
5er.“^al  linear  transformation  relating  two  sets  of  two  variables 
will,  including  additive  constants  which  correspond  to  pure 
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translation,  permit  the  arbitrary  specification  of  six  constants. 
This  is  Just  the  number  of  parameters  needed  to  determine  the 
positions  of  three  points  in  a  plane.  Hence,  except  for 
triangles,  the  specification  of  the  vertex  positions  of  a  poly¬ 
gon  in  two  strain  states  places  more  conditions  on  a  linear 
displacement  field  than  there  are  constant  coefficients  in  the 
equations  which  define  the  field;  the  appropriate  linear  trans¬ 
formation  usually  will  not  exist.  It  therefore  appears  that 
only  with  triangular  zones  can  one  obtain  finite  difference 
equations  for  motion  in  two  space  dimensions  by  applying  the 
same  discretization  assumptions  to  the  First  Law  as  to  each 
of  the  other  principles  of  continuum  motion,  while  at  the  same 
time  minimizing  the  number  of  such  assumptions.  In  any  case, 
triangular  zones  are  necessary  if  our  finite  difference  equations 
are  to  be  exact  under  assumptions  (a)  and  (b).  That  the  general 
practice  of  employing  quadrilateral  zones  has  been  followed  so 
far  with  the  AFTON  codes  is  felt  to  be  an  error  which  should  be 
corrected  In  the  future.  We  now  proceed  to  show  that  for  a 
triangular  zone,  a  finite  difference  equation  can  be  written 
which  Is  indeed  an  exact  statement  of  the  First  Law,  given 
hypotheses  (a)  and  (b).  For  simplicity,  the  discussion  is 
limited  to  Isotropic  materials. 


A  triangular  zone  and  its  associated  triangular  slab  are  shown 
In  Figure  3.  The  counterpart  of  Eq.  8  for  the  change  In  the 
internal  energy  of  a  triangular  slab  of  material  is 

3 

E1  -  E°  =  At  £  U± -F±  ( 13 ) 

i=l 


where 


£l  -  c  i  (ai3  +  Agi)- 

On  the  other  hand  the  change  In  the  internal  energy  of  a 
triangular  slab  of  Isotropic  material  is  given  by 
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E1  -  E° 

where  E^,  Eg,  E^  are  the  principal  extensions  01'  the  strain 
field,  P^,  ?2>  are  PrlnciPal  stresses  and  x,  y,  z  are  the 
usual  Cartesian  coordinates;  the  stress  and  strain  axes  coincide 
for  an  isotropic  medium. 

Under  assumptions  (a)  and  (b)  Eq.  14  becomes 


E1  -  E°  =  -  [p/eJ  -  E°)/E1  +  P2(e*  -  E°)/E2]y&t  (15) 

where 

E1  =  ^E1  +  Ei)>  etc- 

and  7  is  the  "mean-time"  volume  of  the  triangular  slab,  i.e., 
the  volume  computed  from  the  vertex  position  3^  (see  Eq.  1). 

Our  problem  is  now  to  show  that  the  change  in  the  internal 
energy  in  th'e  triangular  slab  computed  according  to  Eq.  13 
is  identical  to  that  given  by  Eq.  15;  Eq.  13  is  an  exact 
expression  for  the  change  in  internal  energy  under  assumptions 
(a)  and  (b).  For  this  purpose  it  is  necessary  to  recall  the 
calculation  of  strain  used  in  the  AFTON  codes.  In  the  case  of 
plane  strain,  the  pertinent  equations  are  Eqs .  42  through  57 
and  62  through  64  of  Appendix  I,  except  that' the  points  labeled 
a,  0,  y  of  the  Appendix  are  now  understood  to  be  the  points 
2,  3j  1>  respectively,  of  Figure  3-  Without  loss  of  generality, 
we  can  assume  that  all  vectors  and  tensors  are  expressed  in  the 
system  of  the  principal  stress  axes .  In  this  coordinate  system 
we  have 

h  -  Ei  ?i 

;2  =  e^  ;§ 

C  -  E  r* 

*1  ^2  =1 


c2  =  Eg  C* 
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where  the  *  superscript  refers  to  the  triangular  slab  of  material 
in  its  unstrained  state.  It  then  follows  from  Eq.  15  that 


E1-E°  =  -Ati 


piCEi-E?)  (EI+EI) +  p2CE2  -  eD  (Ei+E?)]Yf 


which,  in  view  of  Eq.  3  and  the  definitions  of  Appendix  I, 
can  be  written  as 

e1  -  e°  =  (px[u1(y2  -  y3)  +  «/y3  -  yj  *  *3(yl  -  y2)] 

-  Py[vl(x2  -  *3)  +  vaCx3  -  xi)  +  v3(xi  '  xa)]}  (16) 

On  the  other  hand,  in  the  principal  axis  system  we  find  from 
Eq.  13  that 


E1  -  E°  [_Px(Ulal  +  U2a2  +  U3a3^ 


+  P 


yCvibi 


+  V^b^  +  v^b„  )  At 


'2  2  1  w3"3 


where  a,  b  denote  the  x  and  y  components,  respectively,  of  the 
vector  area  A.  Then,  making  use  of  the  relations 

A.i  =  +  A13)  =  (ig  -  rO  x  k,  etc. 


we  deduce  that 
E1  -  E°  =  *At 


ipx[uiCy2  -  y3)  +  u^y3  •  yi) +  u3Cyi  -  ys) 


-  Py[vlCx2  -  x3)  +  v^x3'xl)  +  V3(X1  •  xa)]} 


(17) 


Thus  the  internal  energy  Eq.  13  does  in  fact  constitute  an 
exact  expression  for  the  change  In  the  internal  energy  of  a 
rectangular  slab.  It  is  particularly  satisfying  that  Eq.  13 
wafe  originally  derived  to  insure  conservation  of  energy  rather 
than  to  express  the  First  Law  exactly  under  assumptions  (a) 
and  (b).  In  a  later  section  we  will  discuss  the  energy 
conservation  property  of  the  finite  difference  equations. 
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1.5  THE  CALCULATION  OF  MOMENTUM  IN  AFTON  2P  FOR  LAGRANGIAN 
MESHES 

In  a  finite  difference  scheme  for  solving  the  equations  of  con¬ 
tinuum  mechanics,  it  is  necessary  not  only  to  provide  for  the 
updating  of  thermodynamic  variables,  but  also  for  the  calculation 
of  new  mesh  point  positions  and  velocities.  The  method  used  in 
AFTON  2P  to  update  the  velocity  field  is  similar  in  most  respects 
to  that  Just  described  for  thermodynamic  fields,  although  it  now 
expresses  the  physical  principle  of  momentum  conservation  rather 
than  the  First  Law  of  thermodynamics .  It  is  again  the  essence 
of  the  finite  difference  procedure  that  the  finite  difference 
analog  of  momentum  conservation  be  exact  under  assumptions  (a) 
and  (b),  by  which  the  variables  of  the  motion  known  only  at  a 
discrete  set  of  points  are  defined  throughout  the  space  continuum. 

Since  positions  and  velocities  are  associated  with  mesh  points 
rather  than  zone  centers,  the  elemental  regions  on  which  momentum 
is  conserved,  i.e.,  the  momentum  zones,  are  centered  at  mesh  points. 
The  momentum  zone  assigned  to  any  given  mesh  point  is  made  up  of 
portions  of  each  of  the  four  quadrilateral  zones,  like  those  of 
Figure  2,  which  share  that  mesh  point  as  a  common  vertex.  In 
physical  reality,  the  same  particles  of  mass  which  experience 
strain  also  possess  a  material's  momentum.  To  be  consistent  with 
this  aspect  of  the  real  world,  we  must  therefore  require  that  the 
mass  of  a  quadrilateral  zone  be  assigned  to  each  of  its  corner 
points  in  such  a  way  that  each  particle  of  mass  contributes  its 
momentum  to  one  and  only  one  momentum  zone.  Moreover,  if  (as  in 
the  present  case)  the  momentum  zones  are  to  be  Lagrangian,  then 
each  particle  must  always  contribute  Its  momentum  to  the  same 
momentum  zone . 

These  conditions  can  be  met  without  Invoking  any  assumptions  other 
than  (a)  and  (b).  To  this  end,  we  recall  the  geometric  fact  that 
a  point  can  always  be  found  which,  when  Joined  to  the  mid -points 
of  the  sides  of  a  quadrilateral  by  straight  lines,  will  divide 
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the  quadrilateral  into  four  pieces  of  equal  area.  The  corre¬ 
sponding  quadrilateral  slab  is  then  divided  into  four  corner 
pieces  of  equal  volume,  each  of  which  itself  has  the  shape  of 
a  quadrilateral  slab.  On  the  assumption  that  the  density  of 
material  is  constant  within  any  given  quadrilateral  slab 
[assumption  (b)],  each  of  the  four  corner  pieces  will  contain 
exactly  one  quarter  of  the  mass  of  the  quadrilateral  slab 
throughout  the  course  of  the  motion.  In  addition,  we  note 
that  the  four  interior  surfaces  of  a  quadrilateral  slab  which 
divide  it  into  its  four  corner  sections,  are  plane  surfaces. 

It  is  consistent  with  the  fact  that  these  interior  surfaces 

bound  regions  of  constant  mass,  that  they  be  considered  as 

Lagrangian  surfaces,  i.e.,  mass-point  sheets.  The  requirement 

that  these  sheets  of  mass  points  always  be  planar  represents  a 

nonphysical  constraint  on  the  motions  of  the  points  .  This 

constraint  is  Just  another  instance  of  the  discretization 

error  implied  by  assumption  (a).  The  momentum  zone  of  AFTON 

2P  is  then  the  eight-sided  polygon  shown  schematically  in 

Figure  4.  Pour  lines  emanating  from  a  mesh  point,  such  as 

point  1  of  Figure  4,  are  sides  of  the  four  quadrilateral  zones 

sharing  that  point  as  a  common  vertex.  The  midpoints  of  these 

four  lines,  and  the  center  points  of  the  four  quadrilateral  j 

zones,  are  the  vertices  of  the  octagonal  momentum  zone  around  I 

the  given  mesh  point .  j 

\ 

With  regard  to  momentum  conservation,  the  basic  geometric  object 
contemplated  by  the  numerical  method  is  the  three-dimensional 
octagonal  slab  generated  by  moving  the  octagonal  momentum  zone 
through  a  unit  distance  normal  to  the  plane  of  flow.  The 
octagonal  slab  consists  of  a  quarter-section  of  each  of  the 
four  quadrilateral  Blabs  associated  with  the  mesh  point,  and 
it  therefore  contains  a  mass  of  material  equal  to  one  quarter 
of  the  sum  of  the  masses  of  these  quadrilateral  slabs  .  The 
material  of  the  octagonal  slab  undergoes  acceleration  under 
the  action  of  forces  exerted  on  its  eight  rectangular  faces 
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normal  to  the  p3ane  of  flow.  Each  of  the  four  quadrilateral 
slabs  contributes  two  of  these  faces,  which  are  among  the  four 
Interior  faces  dividing  that  slab  into  quarter  sections. 
According  to  assumption  (b),  such  a  pair  of  surfaces,  being 
interior  to  a  quadrilateral  slab,  are  acted  on  at  all  points 
by  the  same  constant  stress  for  an  entire  time  step.  If  we 
now  extend  assumption  (b)  to  the  octagonal  momentum  slab  by 
assuming  a  uniform  momentum  density  (=  velocity)  on  this  region, 
then  the  change  in  the  slab's  momentum  in  a  time  step  can  be 
calculated  exactly.  For  this  purpose,  let  M  be  the  momentum  of 
the  octagonal  slab  associated  with  the  momentum  zone  of  Figure  4, 
whose  vertices,  in  clockwise  order,  are  the  points  a,  a,  b,  b,  c, 
£,  d,  d.  If  we  let  F  denote  force  and  now  let  subscripts  refer 
to  the  points  a,  a,  etc.,  then,  retaining  the  definitions  used 
in  Eq .  4  and  5  we  have 


Eea 


=  ™ea 


(18) 


where  (P  is  the  stress  in  the  zone  for  which  A  is  an  interior 
area,  and  the  stress -area  product  of  Eq.  18  is  Just  a  matrix- 
vector  multiplication.  (In  the  hydrodynamic  case,  the  matrix- 
vector  multiplication  reduces  to  the  multiplication  of  a  vector 
area  by  a  scalar  pressure.)  Under  assumptions  (a)  and  (b), 
conservation  of  momentum  Is  now  expressed  exactly  for  the 
octagonal  slab  of  material  by  the  equation 


(M1  -  M°)/6t  - 


4d  + 


+  Eba  +  4b 


+  F  .  +  F 
— cb  — cc 


+  F  +  p 

±-dc  Md 


(19) 


Under  assumption  (b),  by  which  the  momentum  per  unit  mass  of 
material  is  constant  over  octagonal  momentum  slab,  the  velocity 
of  the  mesh  point  on  which  the,  slab  is  centered  is  related  to 
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the  momentum  of  the  slab  according  to 

U1  =  MVm  (20) 

where  m,  the  mass  of  the  momentum  region,  is  equal  to  a  quarter 
of  the  sum  of  the  masses  of  the  quadrilateral  slabs  associated 
with  its  central  mesh  point;  m  has  not  been  superscripted  since 
mass  does  not  change  with  time  on  a  Lagrangian  region. 

The  foregoing  explanation  of  the  finite  difference  technique  on 
which  AFTON  2P  is  based  is  sufficiently  detailed  that  we  have 
derived  a  few  of  the  more  important  finite  difference  equations 
around  which  the  code  is  written.  The  only  important  aspect  of 
the  finite  difference  technique  which  has  not  been  discussed  for 
the  Lagrangian  case  is  its  energy  conservation  property.  As 
mentioned  earlier,  the  finite  difference  equations  for  mass  con¬ 
servation  (mass  is  automatically  conserved  in  a  Lagrangian 
coordinate  system),  momentum  conservation,  and  the  First  Law 
were  selected  in  the  first  place  to  satisfy  the  condition  that 
they  imply  an  exactly  conservative  finite  difference  analog  of 
the  integral  equation  for  conservation  of  total  energy.  The 
energy  conservation  equation  will  be  derived  in  the  next  section 
from  the  equations  already  discussed.  Although  this  is  a 
reversal  of  the  steps  actually  taken  in  developing  the  AFTON 
codes,  we  are  more  concerned  here  with  the  numerical  method 
than  with  the  process  of  reasoning  by  which  the  method  was 
developed  from  the  criterion  of  consistency  of  the  finite 
difference  equations . 

1.6  ENERGY  CONSERVATION 

That  the  finite  difference  equations  for 'mass  and  momentum 
conservation  and  the  First  Law  rigorously  imply  a  total  energy 
conservation  theorem  was  the  consideration  which  originally 
led  to  the  scheme  of  differencing  employed  in  the  AFTON  codes. 

To  demonstrate  this  property  of  the  finite  difference  equations, 

/ 

/ 
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we  first  form  the  scalar  product  of  Eq.  19  for  momentum 
conservation,  with  the  particle  velocity  U.  It  is  important 
at  this  point  to  note  that  we  actually  define  two  velocities, 
centered  differently  in  time.  One  of  these  is  the  ratio  of 
momentum  to  mass  given  in  Eq.  20.  This  is  the  primary  velocity 
derived  from  the  finite  difference  equations,  although  it  does 
not  explicitly  enter  our  equations  again.  The  other  velocity 
is  that  appearing  in  Eq.  2,  and  in  the  subsequent  equations  of 
section  1.3  and  1.4.  However,  Eq.  3  is  used  to  compute  the 
change  in  the  position  of  a  mesh  point  over  a  time  step  rather 
than  to  compute  the  velocity  U  which  is  centered  at  the  "middle" 
of  the  time-step,  i.e.,  the  equation  shows  how  the  velocity  U 
is  related  to  the  position  coordinates  of  a  mesh  point,  but  does 
not  define  U.  Actually,  U  is  defined  by  the  condition  that  the 
arithmetic  mean  of  its  values  on  two  consecutive  time  steps  be 
equal  to  the  primary  velocity,  which  is  the  ratio  of  momentum 
to  mass.  Making  use  of  half-integer  superscripts  to  denote 
time  at  about  the  middle  of  a  time-step,  the  equation  used  to 
advance  the  velocity  U  from  one  time -step  to  the  next  is 

=  2M°/m  -  U"^  =  2U°  -  U”*  =  2U°  -  U  (21) 

Thus,  the  velocity  from  which  a  mesh  point  position  change  is 
computed,  is  found  from  the  primary  velocity  for  the  point  by  a 
forward  extrapolation  in  time.  Alternatively,  the  primary 
velocity  of  a  point  is  equal  to  the  arithmetic  means  of  the 
velocities  used  to  move  the  point  on  two  consecutive  time- 
steps  .  We  then  find  from  Eq.  19  that 

U-i-Cn1  -  M°>t  -  0-*.  +  4a  +  4b  +  4b 

+  Ec  o  +  2do  +  £dd)  <22 
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or,  in  view  of  Eq.  21  and  the  fact  that  the  momentum  mass 
associated  with  the  mesh  point  does  not  change  with  time, 

T1  -  T°  =  U  •  (f^  +  4a  +  4 a  +  2bb  +  Ecb  +  4c 

'  +  Edo  +  £dd)at  -  (23) 

where 

T°  -  •  U**  (2l() 

is  the  finite  difference  analog  of  the  kinetic  energy  for  an 
octagonal  slab  of  material  associated  with  a  mass  point.  To 
exhibit  the  fact  that  total  energy  is  conserved,  it  is  only 
necessary  to  observe  that  if  this  last  equation  and  the  internal 
energy  equation  in  the  form  of  Eq.  12  are  summed  over  the 
entire  set  of  mesh  points,  then  all  the  scalar  velocity-force 
products  appearing  in  Eq.  23  for  interior  mesh  points  exactly 
cancel  the  same  products  in  Eq.  12  for  interior  zones.  As 
a  result,  the  sum  of  the  internal  and  kinetic  energies  for  the 
entire  system  will  change  in  a  time  step  by  an  amount  determined 
entirely  by  conditions  at  its  boundary.  These  boundary 
conditions  will  give  rise  to  terms  which,  since  they  determine 
the  overall  energy  change  of  the  system,  are  a  finite  difference 
expression  for  the  net  work  done  on  it .  By  the  same  token,  since 
there  is  no  contribution  to  the  overall  work  done  on  the  system 
from  any  of  its  interior  surfaces,  the  net  rate  of  working  of 
interior  forces  is  zero. 

Although  the  simple  observation  made  above  is  sufficient  to 
establish  energy  conservation,  the  conservation  theorem  can  be 
made  more  complete  and  satisfying.  For  example,  while  we 
have  concluded  that  the  net  rate  of  working  interior  forces  is 
zero,  no  expression  for  the  rate  of  work  on  an  interior  surface 
has  been  formulated.  A  truly  satisfactory  energy  conservation 
theorem  should  Include  an  explicit  expression  for  the  total 
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energy  quantity  conserved  in  an  arbitrary  interior  zone,  along 
with  an  explicit  formulation  of  the  work  done  on  the  zone  in  a 
time  step.  The  fact  that  a  momentum  zone  does  not  coincide 
with  a  thermodynamic  zone  somewhat  complicates  the  achievement 
of  this  result.  However,  ultimately  we  can  and  will  obtain  an 
equation  for  total  energy  conservation  for  each  type  of  region. 

Let  us  first  consider,  as  the  region  for  which  a  total  energy 
conservation  equation  must  be  developed,  a  quadrilateral  slab 
(which  is  the  basic  region  of  definition  of  thermodynamic 
variables).  We  then  proceed  by  considering  a  momentum  zone 
to  consist  of  four  pieces,  which  are  just  the  quarters  of  the 
quadrilateral  slabs  from  which  (as  discussed  in  section  1.5) 
the  momentum  zones  were  originally  made  up .  Referring  to 
Figure  4  it  can  be  seen  that  the  surfaces  of  contact  of  the 
quadrilateral  slabs,  i.e.,  the  boundary  surfaces  of  these  slabs, 
are  interior  surfaces  of  the  momentum  slabs,  across  which  there 
is  no  net  rate  of  production  of  kinetic  energy.  Thus  Eq.  23 
can  be  written  in  vthe  following  form: 

t1  -  T°  •  2-[(£ad  +  Saa  +  Ela  +  2u)  +  (&»  +  *bb  +  'lb  +  4l) 

+  Oob  +  Eco  +  he  +  Ebl)  +  (Edo  +  Eaj  +  Eid  +  <25) 


where 


£dl'  £al'  £bl*  £ol 


are  the  forces  acting  on  those  quadrilateral  slab  half -faces 
which  appear  in  the  interior  of  the  momentum  slab;  these  half- 

faces  bound  the  pieces  of  the  momentum  slab  contributed  by  each 

\ 

of  the  four  surrounding  quadrilateral  slabs  |  Also,  of  course, 
F^1  is  the  negative  of  Fld,  etc.  Now,  the  mass  of  a  momentum 
sTab  is  the  sum  of  quarters  of  the  masses  olf  the  four  surround¬ 
ing  quadrilateral  slabs.  The  kinetic  energy  Eq.  25  can 


30 


therefore  be  written  as  the  sum  of  four  equations,  one  for  each 
of  the  quadrilateral  quarter- zones  which  make  up  the  momentum 
zone.  The  quarter-sone  contribution  to  the  kinetic  energy 
Eq.  25  from  zone  (a)  of  Figure  4  is  then 


Ky?/S-«i/2  -  Ksi'S*  =  -1  <  ead  +  Edl  +  Ela  +  Eaa>  <26> 


Similar  equations  hold  for  the  changes  of  kinetic  energy  in 
the  quarter  sections  of  slabs  b,  c  and  d;  these  four  quarter- 
zone  sections  together  make  up  the  momentum  slab  associated  with 
the  point  1  of  Figure  4.  The  kinetic  energy  equations  for  the 
four  quarter-zones  add  up  to  the  kinetic  energy  equation  for  the 
entire  momentum  slab.  Furthermore,  one  can  also  select  the  four 
quarter-zone  kinetic  energy  equations  like  Eq.  26  which  corre¬ 
spond  to  the  sections  of  a  given  quadrilateral  slab .  Thus  by 
adding  to  Eq.  26  the  three  quarter-zone  kinetic  energy  equations 
which  represent  the  contribution  of  zone  (a)  to  the  momentum 
slabs  centered  at  points  2,  3,  and  4  of  Figure  4,  we  obtain  the 
following  equation  for  the  change  of  kinetic  energy  of  the 
entire  quadrilateral  slab  centered  at  (a): 


Ta  -  Ta  -  [2l<5dl  +  Ela)  +  V(?2d  +  Sga)  +  V  (E32  +  F23) 

+  24-  (S43  +  5g0  +  2i-  0-ad  +  ?aa)  +  V-2  ’  (?da  +  Eag) 

+  23  •  C?2a  +  Ea 5)  +  24-  CF-3a  +  Eaa)]at  1 


(27) 


where 


Ta  -  I  ma  (.21-21*  +  4-4  +  2|-2i*  + 

Since  we  assume  a  constant  stress  on  the  face  of  a  quadrilateral 
slab,  and  a  bisects  the  line  ITT,  we  have 

Ela  =  ?a4  =  *  -14  I 


(28) 
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with  similar  equations  for  the  other  forces .  Hence,  we  obtain 


Ta  -  Ta  -  [<y2  +  S  j-E 21  +  *  («3  +  U-2 )% 

+  iC«4  +  +  Kh +  yj,)'Eiii]At 

-  lCsS  -  ^iXad  +  (”3  -  y2Xa2  +  Can 

+  C«!  -  2*)-5aa]At 

By  combining  this  Last  equation  with  Eq.  12  we  find  the 
following  equation  for  conservation  of  energy  in  the  quadri¬ 
lateral  slab  of  zone  (a): 

(«a  '  «£)  =  V*  <3°) 

where 

Ha  -  Ta  +  Ea 

and 

"a  ’  *  Cy2  +  O-Esi  +  *  0>3  +  2a)-E38 

+  i  (04  +  23>  P43  +  i  C21  +  E4X14 

Equation  30  is  one  of  the  two  main  statements  of  exact  energy 
conservation  implied  by  our  equations  for  mass  and  momentum 
conservation,  and  the  First  Law.  Each  of  the  terms  appearing 
in  the  expression  for  the  rate  of  working  W_  on  the  quadri- 

a 

lateral  slab  associated  with  zone  (a)  gives  the  rate  at  which 
work  is  done  across  one  of  the  rectangular  faces  of  the  slab; 
the  same  face  serves  as  a  boundary  for  the  adjacent  slab  (b), 
ana  in  this  role  the  work  done  on  the  face  in  any  given  time 
interval  is  the  negative  of  that  done  across  it  on  slab  (a). 


(29) 
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Therefore,  there  is  no  net  work  done  by  the  forces  acting  in 
the  interior  of  the  system.  Of  course,  up  to  now  the  stresses 
acting  on  the  slab  faces  have  not  been  defined  -  nor  is  it 
really  necessary  to  define  them.  Since  they  act  on  interior 
faces  of  the  momentum  slabs  these  stresses  contribute  nothing 
to  the  acceleration  of  mesh  points;  neither  do  they  appear  in 
Eq.  12  to  influence  the  internal  energy.  However,  for 
completeness,  and  for  certain  types  of  boundary  conditions,  it 
is  worth 'noting' that  in  AFT0N2P  the  stress  acting  on  the  face 
of  a  quadrilateral  slab  is  taken  to  be  the  arithmetic  mean  of 
the  stresses  of  the  quadrilateral  slabs  in  contact  across  a 
given  face. 


The  other  important  statement  of  energy  conservation  is  one  in 
which  the  region  of  conservation  is  a  momentum  zone  rather  than 
an  internal  energy  zone.  To  find  an  energy  conservation  equation 
for  this  region,  an  expression  must  be  developed  for  the  change 
in  internal  energy  of  a  quarter-zone  of  material  associated  with 
a  momentum  slab,  Just  as  in  the  previous  case  it  was  necessary 
to  develop  a  quarter-zone  kinetic  energy  equation.  The  reason 
why  these  quarter-zone  expressions  are  needed  is  that  quarter- 
zones  are  the  largest  regions  on  which  both  the  kinetic  energy 
density  and  internal  energy  density  are  constant.  This  follows 
because  in  the  AFTON  code  (as  in  most  other  two-dimensional 
time-marching  schemes  for  the  solution  of  the  equations  of 
continuum  mechanics),  the  dynamic  variables  are  mesh-point- 
centered  while  the  thermodynamic  variables  are  zone-centered. 

To  obtain  the  desired  quarter-zone  internal  energy  equation  we 
simply  associate  half  of  each  term  of  Eq.  12  with  each  of  the 
corner  points  whose  velocity  appears  in  the  term.  Thus,  for 
example,  for  the  quarter  of  zone  (a)  associated  with  the  mesh 
point  1  we  have 


At  i  i 
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The  internal  energy  of  the  momentum  slab  associated  with  point 
1  is  then  governed  by  the  equation 


“l  -  E?  -  -  4t  !>  Cs*  -  “iXa  +  *  C«1  -  82Xd 


+  i  <A  -  yj-5ab  +  i  C«6  -  »1 >E 
+  i  Ofe  -  EiXbc  +  *  (2i  -  y8)-p 


+  i  (“i  -  88>Ed0  +  i  (.81  -  82>E, 
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1.7  NON-LAGRANGIAN  COORDINATE  SYSTEMS 

In  developing  the  AFTON  codes  so  that  they  apply  to  arbitrary 
time -dependent  coordinate  systems,  the  key  idea  has  been  to 
retain  the  Lagrangian  form  of  the  equations  for  actually  updat¬ 
ing  the  variables  of  the  motion.  The  events  taking  place  in 
a  time  step  are  then  the  following:  at  the  start  of  a  time- 
step,  a  quadrilateral  slab  of  material  happens  instantaneously 
to  coincide  with  a  quadrilateral  slab  of  space  associated  with 
a  generalized  zone.  The  equations  of  motion  being  essentially 


34 


Lagrangian,  the  variables  of  the  motion  are  updated  by  a  time 
step  for  the  quadrilateral  material  slab;  this  is  a  completely 
Lagrangian  calculation.  At  this  point,  a  new  generalized 
coordinate  mesh  is  laid  down.  Since  its  zones  will  in  most 
cases  overlap  two  or  more  Lagrangian  zones,  a  non-Lagrangian 
coordinate  system  now  presents  the  additional  problem  of 
distributing  the  updated  variables  of  the  motion,  such  fie  mass 
or  internal  energy,  among  the  various  generalized  zones  over 
which  a  given  Lagrangian  zone  is  spread.  The  distribution  of 
the  material  of  a  Lagrangian  zone  over  other  regions  can  be 
effected  in  many  ways  without  negating  the  conservation 
properties  of  the  finite  difference  equations  of  motion.  The 
reason  for  this  is  that  the  material  which  moves  from  one 
region  into  another  need .only  be  accounted  for  in  the  finite 
difference  equations  in  such  a  way  that  the  material  lost  by 
the  one  region  appears  precisely  as  a  gain  to  the  other. 
Estimates  of  the  flow  of  mass,  for  example,  can  be  physically 
unreasonable  and  still  be  treated  conservatively  by  insuring 
that  the  mass  which  leaves  each  and  every  zone  enters  neighbor¬ 
ing  zones . 

A  simple  and  reasonable  procedure  for  updating  the  variables  of 
the  motion  in  a  generalized  zone  would  be  to  adhere  strictly 
to  assumptions  (a)  and  (b)  of  section  1.3.  In  fact,  taken  with 
the  Lagrangian  calculations  described  earlier,  this  is  the  most 
consistent  method  of  distribution  of  the  properties  of  a 
Lagrangian  zone  among  the  generalized  zones  which  it  overlaps. 
It  would,  however,  require  a  rather  lengthy  calculation  of  the 
volumes  of  polyhedral  solids.  To  avoid  such  computation,  a 
simpler  method  has  been  used  in  the  AFTON  codes  to  account  for 
the  transport  of  material  from  one  zone  to  another.  We  assign 
to  each  coordinate  surface  of  a  quadrilateral  slab  normal  to 
the  plane  of  flow  a  material  velocity  (U  -  S)  relative  to  the 
surface  (S  will  be  used  in  general  to  denote  the  velocity  of 
a  coordinate  surface  or  of  a  mesh  point).  The  scalar  product 
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of  (U  -  S)  with  the  vector  area  of  the  relevant  surface  of  the 
quadrilateral  slab  then  gives  the  rate  at  which  material  volume 

O 

crosses  the  surface,  e.g.,  cnr/sec.  Multiplying  this  rate  by 
At  we  obtain  an  estimate  of  the  volume  of  material  which  flows 
across  the  surface  during  a  time-step.  Then,  by  estimating  the 
density,  i.e.,  the  amount  per  unit  volume,  of  any  particular 
material  property,  and  performing  a  further  multiplication  by 
this  density,  the  total  amount  of  the  property  which  flows 
across  the  surface  in  a  time  step  is  determined.  By  summing 
the  quantities  so  somputed  over  all  the  faces  of  a  polyhedral 
region  the  net  change  of  that  material  property  in  a  time  Btep 
is  found  for  the  region.  In  the  case  of  mass  conservation,  the 
equation  embodying  this  procedure  in  APTON  2P  is  as  follows: 

m1  =  m°  -  At  j_(pWA)12  +  (pWA)23  +  (pWA)34  +  (pWA)4J  (34) 

where 


(pWA)^2  —  P;l2-12  *  4^2 

and  (pWA)23,  (pWA)34,  (pWA)4l  are  computed  in  a  similar  manner. 
P12  is  the  density  of  material  flowing  across  the  surface  whose 
area  is  A21  (See  Appendix  I,  Eq.  8l). 

The  flow  of  internal  energy,  momentum,  etc.,  from  one  polygonal 
slab  to  another,  is  calculated  in  analogous  fashion. 
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SECTION  2.0 


THE  CALCULATION  OF  GENERAL  ONE- DIMENSIONAL 
STRESSES  AND  STRAINS  IN  AN  ARBITRARY  TIME- DEPENDENT 
COORDINATE  SYSTEM  AND  THE  PROPERTIES  OF  SOME 
TIME- DEPENDENT  MESHES 

With  regard  to  the  use  of  numerical  methods  to  predict  one¬ 
dimensional  continuum  motion  the  main  results  achieved  in  the 
program  have  been  of  two  kinds.  First,  the  AFTON  1  code  (Ref.  3) 
has  been  expanded  to  handle  general  stresses  and  strains  for  the 
three  cases  of  one- dimensional  motion  (linear,  cylindrical  and 
spherical).  Previously,  only  hydrodynamic  motion  could  be 
described  by  the  code.  Again,  the  code  permits  the  use  of 
virtually  any  time-dependent  coordinate  mesh  in  which  to  describe 
motion  and  as  In  all  the  AFTON  codes,  the  underlying  finite 
difference  equations  satisfy  exact  conservation  theorems  for 
mass,  momentum,  and  energy.  Secondly,  progress  has  been  made 
'  in  defining  an  optimum  time- dependent  coordinate  system  for 
the  numerical  description  of  continuum  motion.  With  the 
generalized  coordinate  system  definitions  adopted  in  the 
program,  AFTON  1  haB  been  used  to  solve  some  specific  problems 
of  spherical  motion  which  have  also  been  computed  by  numerical 
Lagrangian  methods.  Although  the  time- dependent  coordinate 
systems  employed  have  some  deficiencies  which  are  now  obvious, 
the  results  thus  far  obtained  provide  evidence  that  the  accuracy 
of  numerical  solutions  can  be  significantly  improved  by  properly 
distributing  a  given  set  of  mesh  points  at  each  instant  of  time. 

The  calculation  of  strains  in  non- Lagrangian  finite  difference 
meshes  is  carried  out  by  a  method  similar  in  spirit  to  that 
suggested  in  the  Final  Report  (Ref.  3)  on  the  first  year's  work, 
although  it  is  quite  different  in  detail. 

Strain  is  basically  a  property  of  individual  mass  elements  and 
its  evaluation  is  therefore  most  naturally  carried  out  in  a 


37 


Lagrangian  coordinate  system.  This  state  of  affairs  is 
reflected  in  our  procedure  for  the  calculation  of  strain-even 
in  an  arbitrary  time  dependent  coordinate  system,  changes  in 
strain  are  determined  only  by  material  motion,  in  a  calculation 
made  explicitly  for  regions  of  fixed  finite  mass.  In  fact, 
the  search  for  a  satisfactory  procedure  for  updating  the 
strain  variables  in  a  generalized  coordinate  zone  has  led  us 
to  divorce  completely  the  principles  of  motion  from  the 
calculation  of  transport.  The  laws  of  motion  apply  in  their 
most  basic  and  elementary  form  to  elements  of  fixed  mass.  Just 
as  does  the  definition  of  strain;  transport  results  from  the 
essentially  arbitrary  choice  of  a  coordinate  system  by  an 
observer  to  help  him  describe  the  motion  he  observes.  Specif¬ 
ically,  AFTON  1  now  updates  the  variables  of  the  motion  by  a 
time  step  in  two  distinct  and  sequential  calculations.  First, 
the  elements  of  mass  which  happen  to  be  contained  within  the 
boundaries  of  a  zone  at  some  "earlier  time"  are  moved  to  some 
"later  time"  positions  according  to  Newton's  Second  Law,  which 
as  stated  is  basically  Lagrangian.  When  this  Lagrangian 
calculation  has  been  completed,  the  finite  difference  mesh 
selected  by  the  problem  solver  is  overlaid  on  the  updated 
Lagrangian  mesh,  and  the  contents  of  each  generalized  zone  are 
examined  for  the  purpose  of  defining  the  updated  variables  of 
the  motion  in  these  zones.  Thus,  for  example,  if  the  density 
in  each  Lagrangian  zone  is  assumed  constant,  then  the  mass 
encompassed  by  the  boundaries  of  any  given  generalized  zone  can 
be  found  at  the  later  time  from  the  densities  resulting  from  the 
Lagrangian  calculation.  It  is  likewise  possible,  in  the  one¬ 
dimensional  cases,  to  compute  unambiguously  and  exactly  the  mean 
principal  strains  of  each  generalized  zone,  knowing  the  strains 
in  the  Lagrangian  zones  at  the  earlier  and  later  times.  The 
corresponding  calculation  is  not  unambiguous  in  two  and  three 
space  dimensions. 


With  regard  to  strain,  the  procedure  just  outlined  for  spherical 
symmetry  is  illustrated  more  fully  by  Figures  5a  and  5b. 

Figure  5«  shows  a  portion  of  the  finite  mesh  at  an  "earlier  time" 
tn~  .  Figure  5b  shows  the  same  four  zones  at  a  later  time  tn. 

In  Figure  5b  the  dashed  lines  indicate  the  later  time  positions 
of  those  particles  which  happen  to  coincide  with  the  various 
zone  boundaries  at  the  earlier  time  tn_1  (Figure  5a  ); 
the  solid  lines  indicate  the  later-time  positions  of  the 
generalized  zone  boundaries  themselves.  The  numerical  calcula¬ 
tion  then  proceeds  as  follows  .  The  positions  of  the  mesh  points 

„  -I 

which  coincide  with  zone  boundaries  at  tn_  are  updated  to  their 
new  values  according  to  Eq.  35. 
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where  x£  is  the  new  position  of  the  jth  mass  element  boundary; 
X1?-1  its  previous  position;  U1?"^  its  velocity,  and  An-2t  the 
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current  time  step.  The  new  specific  volume  V. and  the 

i  ^  2 

dilatation  A.  ?  can  now  be  found  from  Eqs,  36  and  37. 
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where  m*?-}  is  the  mass  between  the  zone  boundaries  j  and  j-1. 
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A1?-?  =  A1?'?/2  +  fv1?"!  -  V*?“?/2)/V  (37) 
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To  find  the  radial  strain  in  zone  "B"  of  Figure  5b  we  note  that 


the  positions  of  the  boundaries  of  the  Lagrangian  mass  element 
are  known  at  both  the  earlier  and  later  times  along  with  the 
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Figure  5 

SCHEMATIC  OF  A  PORTION  OF  A  FINITE  DIFFERENCE 
MESH  FOR  ONE- DIMENSIONAL  SPHERICAL  MOTION 

(a)  Positions  of  the  zone  boundaries  at  tn~l. 

(b)  Dashed  lines  indicate  the  positions  at  tD  of  those 
particles  which  happen  to  coincide  with  the  various 
zone  boundaries  at  the  earlier  time  tn"l;  the  solid 
lines  indicate  the  generalized  zone  boundaries  at  tn. 
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state  of  strain  of  the  element  at  the  earlier  time.  The 
principal  radial  strain  of  zone  "B"  at  the  later  time  is  then 
given  by 


_n-l  , 

"  J4 


1  +  eJ 


^  I  „  1 

U?"2  _  yn-2 
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(38) 


Equation  38  gives  exactly  the  mean  strain  of  the  element  at  time 
tn,  if  the  values  of  the  variables  on  the  right  hand  side  of 
the  equation  are  exact.  Since  the  line  of  mass  points  between 
the  boundaries  of  a  generalized  zone  consists  of  segments  which 
fall  in  a  set  of  contiguous  mass  elements,  the  unstrained, 
length  of  each  segment,  and  hence  of  the  entire  line,  can  be 
readily  computed.  The  mean  principal  radial  extension  cf  the 
material  in  that  generalized  zone  is  then  Just  the  radial 
distance  across  the  zone  divided  by  the  unstrained  length  of 
the  radial  line  of  mass  points  between  its  boundaries.  The 
principal  radial  strain  is  Just  this  ratio  minus  one.  For 
example,  the  zone  "D"  of  Figure  5b  has  its  boundaries  at  the 

radial  positions  Xj,  and  consists  of  part  or  all  of  the 

three  Lagrangian  zones  bounded  by  the  radial  positions 

X?  ,X^  ,X^  ,  and  X?  .  The  three  Lagrangian  zones  in 

j+l  j  J-l  j-2 

question  are  "A,"  "B,M  and  "C"  of  Figure  5b.  If  lV  is  the  length  of 

a 

any  radial  mass  line  contained  within  zone  "A"  at  time  n,  then 

its  unstrained  length  is  Just  equal  to  L^/  1  +  e^1  ,  where 

a  a 

e!1  is  the  principal  radial  strain  in  zone  "A"  at  time  n.  In 
a  n 

particular  the  mass-line  segment  between  XL  and  Xj^,  which 

is  that  portion  of  zone  A's  radial  mass  line  contained  within 

zone  "D,"  must  have  an  unstrained  length  equal  to 


-  X?  ,  /  1  + 


Making  a  similar  computation  for 
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zone  "B^'  which  lies  entirely  within  zone  "D"  and  for  zone  "C, 
which  lies  partially  in  zone  "Btnvie  find  that  the  radial  mass 
line  contained  within  zone  "D"  has  an  unstrained  length  given 

by 
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The  principal  radial  strain  of  zone  "D"  is  therefore  given  by 
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It  is  assumed  for  simplicity  that  each  Lagrangian  zone  is  homo- 

?  n 

geneously  strained^and  in  this  case  the  value  of  eD  Just  computed 
is  exact  for  the  mean  principal  radial  strain  of  zone  "D"  at 
time  tn.  If  a  more  complicated  strain  distribution  is  assumed 
in  the  Interiors  of  the  Lagrangian  zones,  then,  while  a  calcu¬ 
lation  of  the  principal  radial  strain  in  a  generalized  zone 
proceeds  in  steps  identical  to  those  Just  taken,  the  algebraic 
form  of  the  result  will  be  more  involved. 


The  treatment  of  strain  Just  iescribed  for  non-Lagrangian  coordi¬ 
nate  systems  has  been  incorporated  Into  one -dimensional  computer 
codes  and  tested  in  some  non-Lagrangian  time  dependent  coordinate 
systems.  The  principal  non-Lagrangian  coordinate  systems  investi¬ 
gated  so  far  are  an  "accordion"  coordinate  system,  and  an  "activity" 
coordinate  system.  In  the  accordion  coordinate  system  the  space 
between  the  boundaries  of  a  material  at  any  given  time  is  divided 
into  zones  of  equal  width.  The  activity  coordinate  system  uses 
a  measure  of  local  activity,  y  y  to  determine  the  relative  thick¬ 
nesses  of  the  zones  contained  within  the  boundaries  of  a  given 
material.  In  the  activity  coordinate  system,  the  greater  the 
activity  quantity  yy  for  a  zone,  the  thinner  that  zone  is  made. 

Two  measures  of  activity  have  been  used  so  far.  They  are  given 

by. 
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Here,  | u J  “  Uj  l  is  the  maSnitude  of  the  velocity  difference 
across  the  Jth  zone  at  time  tn,  and  Aj,,  the  magnitude  of  the 
mean  of  the  accelerations  experienced  by  the  jth  zone  boundary 
at  time  tn_'*'  and  tn.  The  width  of  a  zone  is  then  made  inversely 
proportional  to  its  activity.  The  parameter  a*  which  appears 
in  both  definitions  of  y^,  is  an  input  quantity  which  may  be 
used  to  control  the  ratio  between  the  maximum  to  minimum  zone 
size  in  any  given  problem.  The  ratio  ymax  to  ymin  is  given  by 


WYmln  *  <a  +  1  )/a  ~  k  +  1  1 

I 

where  k  =  1/a.  Thus,  for  example,  if  k  =  3>  the  ratio  of  the 
maximum  to  minimum  zone  width  is  4. 

To  test  the  validity  of  the  finite  difference  equations  used  to 
calculate  strain  in  a  generalized  time-dependent  coordinate  system 
and  to  gain  some  insight  into  the  proper  choice  of  an  activity 
quantity,  Yj,  calculations  have  been  made  for  a  shock  running 
outward  from  a  spherical  cavity  into  an  elastic  medium  with 
Lame'  constants  \  =  1,  U  =  0  (the  hydrodynamic  limit)  and  with 
\=  u  =  1/3.  The  code  runs  were  made  using  a  Lagranglan  coordi¬ 
nate  system  and  a  time-dependent  coordinate  system  which  is 
intended  to  cluster  zones  in  regions  of  maximum  activity,  as 
described  above.  The  spherical  compression  wave  in  the  elastic 
medium  is  generated  by  the  uniform  adiabatic  expansion  of  a  gas 
in  the  spherical  cavity.  This  problem  was  chosen  because  it  has 


an  exact  analytical  solution  for  the  radial  velocity  as  a 
function  of  time.  Lt.  H*  Cooper  of  the  Air  Force  Weapons 
Laboratory  has  provided  a  corvenient  form  of  this  exact 
solution. 

Figures  6  and  7  compare  the  results  of  three  different  code 
runs  with  the  exact  analytical  solution  for  the  hydrodynamic 
case.  In  these  figures  the  radial  velocity  Is  plotted  as  a 
function  of  a  radial  coordinate  for  a  given  time  t.  Of  these 
three  code  runs,  two  used  Lagrangian  coordinates.  The  first. 
Problem  I,  had  a  fixed  number  of  zones  per  unit  radial  distance. 
In  the  second  Lagrangian  run.  Problem  II,  twice  as  many  zones 
were  used  per  unit  radial  distance  as  in  Problem  I.  The  third. 
Problem  III,  employed  a  generalized  coordinate  system  whose 
activity  quantity,  y  y  is  given  by  Eq.  (40).  The  initial 
coordinate  mesh  In  Problem  III  was  identical  to  that  of  Problem 
I. 


It  is  clear  from  these  figures  that,  in  the  hydrodynamic  case, 
accurate  numerical  solutions  can  be  obtained  in  both  types  of 
coordinate  system.  Only  in  the  immediate  vicinity  of  a  shock 
front  do  sizable  percentage  errors  In  the  velocity  appear. 

These  errors  take  the  form  of  a  diffusion  or  spreading  out  of 
the  ideally  discontinuous  velocity  which  is  unavoidable  in  a 
discrete  mesh  and,  perhaps  more  importantly,  are  evidenced  by 
oscillations  In  the  velocity  about  the  correct  values.  Such 
differences  as  are  evident  indicate  that  the  time-dependent 
coordinate  system  leads  to  more  accurate  results  than  a  Lagrangian 
coordinate  system  with  the  same  number  of  zones  and  produces 
smaller  errors  even  than  a  Lagrangian  problem  with  twice  the 
number  of  zones.  Mainly,  this  reflects  the  smoothing  of  the 
oscillations  behind  the  shock  front  by  the  backward  treatment 
of  transport  In  the  code.  However,  since  the  particle  velocity 
of  the  shock  front  is  itself  small  relative  to  the  peak  velocity 
of  compressed  material  found  at  the  cavity  wall,  the  errors  In 
velocity  appear  in  all  cases  to  be  insignificant  for  hydrodynamic 
motion. 
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Figure  6 

COMPARISONS  OF  THE  NUMERICAL  AND  ANALYTICAL  SOLUTIONS 
OF  A  SPHERICALLY  DIVERGING  COMPRESSION  WAVE  IN  AN 
ELASTIC  MEDIUM  WHOSE  LAME '  CONSTANTS  ARE 
v  =  1 ,  u  o  (Hydrodynamic  Limit) 


•  Problem  I 


Analytical 

Solution 


J _ L 
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Radial  Position  Coordinate 


Figure  7 

DITAIL  OF  SOLUTIONS  AT  THE  SHOCK  FRONT  OF  A 
SPHERICALLY  DIVERGING  COMPRESSION  WAVE  IN  AN 
ELASTIC  MEDIUM  WHOSE  LAME'  CONSTANTS  ARE 
X-  l,n  o  (Hydrodynamic  Limit) 


In  the  case  of  X  =  u  =  1/3,  where  hoop  stresses  are  comparable 
to  pressures,  the  situation  Is  different.  The  velocity  at  the 
shock  front  Is  the  same  as  In  the  hydrodynamic  case  but  Is  now 
the  largest  velocity  to  be  found  In  the  shocked  material. 

Errors  significant  compared  to  this  velocity  no  longer  appear 
negligible.  In  fact,  the  whole  scale  of  significant  velocities 
Is  reduced  by  at  least  an  order  of  magnitude,  and  this  case 
therefore  provides  a  more  stringent  test  of  the  numerical  calcu- 
lational  procedure.  The  results  are  shown  in  Figures  8,  9,  and 
10  where  the  numerical  solution  is  again  compared  to  the  exact 
analytical  solution  at  a  given  time  t.  Except  for  the  Lame' 
constants,  these  problems  are  identical  to  Problems  I,  II,  and 
III.  Once  more.  Figure  8  shows  the  Lagrangian  result  with  the 
zoning  of  Problem  I.  Figure  9  shows  the  Lagrangian  results 
with  the  zoning  of  Problem  II,  and  Figure  10  shows  the  results 
obtained  using  a  time-dependent  coordinate  system  in  which  the 
initial  coordinate  mesh  was  identical  to  that  of  Problem  I. 

In  the  case  of  equal  Lame1  constants,  the  Lagrangian  solutions 
are  accurate  only  in  a  time-  or  space- averaged  sense.  At  a 
single  time,  zone  by  zone  oscillations  appear  in  velocity,  radial 
stresses,  etc.,  which  can  constitute  errors  of  50  percent  or 
more  at  specific  mesh  points.  (See  Figure  8.)  It  was  found 
that  these  errors  decrease  as  the  mesh  is  refined  (Figure  9), 
although  at  a  somewhat  less  rapid  rate  than  was  expected  (Ref.  3). 
For  the  equations  of  Von  Neumann  and  Richtmyer  (Ref.  7),  these 
oscillations  represent  a  basic  limitation  on  the  accuracy  of 
solutions  to  problems  of  this  kind.  On  the  whole,  the  results 
obtained  with  the  generalized  coordinate  system  were  significantly 
better  than  the  results  shown  in  Figures  8  or  9,  although  the 
shock  front  itself  was  considerably  eroded.  This  erosion  is  due 
to  a  combination  of  two  effects:  diffusion  of  mass  and  momentum 
arising  from  backward  differencing,  and  the  failure  of  the  co¬ 
ordinate  mesh  to  provide  fine  zoning  at  the  shock  front.  This 
result  is  shown  in  Figure  11  where  Yj  is  superimposed  over  the 
exact  solution. 
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Figure  8 

COMPARISONS  OF  THE  NUMERICAL  AND  ANALYTICAL  SOLUTIONS 
OF  A  SPHERICALLY  DIVERGING  COMPRESSION  WAVE  IN  AN 
ELASTIC  MEDIUM  WHOSE  LAME'  CONSTANTS  ARE 

X  -  M  1/3 


Figure  9 

COMPARISONS  OF  THE  NUMERICAL  AND  ANALYTICAL  SOLUTIONS 
OF  A  SPHERICALLY  DIVERGING  COMPRESSION  WAVE  IN  AN 
ELASTIC  MEDIUM  WHOSE  LAME’  CONSTANTS  ARE 

X  =  U 

49 


1/3 


dial  Velocity 


Figure  10 

COMPARISON  OF  THE  NUMERICAL  SOLUTION  USING  A  TIME -DEPENDENT 
COORDINATE  SYSTEM  WITH  THE  ANALYTICAL  SOLUTION  OF  A 
SPHERICALLY  DIVERGING  COMPRESSION  WAVE  IN  AN  ELASTIC 
MEDIUM  WHOSE  LAME'  CONSTANTS  ARE  '  =m  =  1/3 


Radial  Velocity 


ANALYTICAL  SOLUTION 


The  two  definitions  of  activity  led  to  essentially  identical 
results  in  the  case  of  spherically  outgoing  elastic  compression 
waves,  and  both  suffer  from  the  defect  that  they  imply  relatively 
little  activity  at  the  peak  of  a  compression  pulse,  where  fine 
zoning  is  desired.  Nevertheless,  it  appears  that  the  effort  made 
in  AFTON  1  to  achieve  great  flexibility  in  the  choice  of  a  coordi¬ 
nate  system  will  in  fact  lead  to  the  economical  solution  of 
continuum  motion  problems  originally  intended.  As  a  result  of 
the  work  done  to  date,  some  specific  ways  of  improving  on  the 
coordinate  system  definitions  used  in  this  program  are  now  evident, 
and  the  resulting  coordinate  system  definitions  appear  capable  of 
relatively  simple  extension  to  two-dimensional  motion  where  the 
potential  economies  of  solution  are  substantially  greater  than 
in  one  space  dimension.  To  obtain  the  maximum  possible  accuracy 
of  numerical  solutions  by  an  optimum  distribution  of  mesh  points, 
further  studies  of  activity  definitions  and  coordinate  systems 
should  be  made. 
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APPENDIX  I 

INTERIOR  AND  BOUNDARY 
EQUATIONS  FOR  AFTON  2A 


NOTATION 


Principal  extensions 

Internal  energy  of  zone  "a"  at  time  tn 

Energy  of  material  transported  across 
zone  boundary  " 

Force  on  the  quarter  zone  wedge  face  area 

Vector  force  associated  with  vertex 
point  (i)  of  zone  "a"  at  time  tn 

Energy  of  the  total  system  at  time  tn 

Total  energy  of  zone  "a"  at  time  tn 

Vector  momentum  of  mesh  point  "i" 
at  time  tn 

Momentum  mass  associated  with  mesh 
point  "1" 

Momentum  of  the  total  system  at  time  bn 

Mass  of  zone  "a"  at  time  tn 

Diagonal  element  of  the  artificial 
viscosity  tensor 

Vector  velocity  of  mesh  point  "1"  at  time 

tn“^  having  components  u  and  v  in  the 
radial  and  axial  directions  respectively 

Rate  of  work  on  the  total  system 

Rate  of  work  on  face  "ml” 

Specific  volume  of  zone  "a"  at  time  tn 

Radial  position  coordinate  at  time  tn 

Axial  position  coordinate  at  time  tn 


Stress  tensor  defined  In  the  coordinate 
system  of  the  principal  strains;  its 
components  are 

Py  0  0 

0  Pz  0 

0  0  Px 


Stress  tensor  defined  in  the  external 
coordinate  system;  its  components  are 


Rotation  matrix;  its  components  are 


\ 


Principal  strain  direction;  radial 
component  Xyl,  axial  component  \y2 


Principal  strain  direction;  radial 
component  Xz^,  axial  component  Xz2 


Volume  dilatation 


Time  step  used  to  advance  the  variables 
from  t11"1  to  tn 
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Principal  Strains 


* 

**: 

pXm 

-s 


$ 


Compression  of  zone  "a"  at  time  tn 

Excess  compression  of  zone  "a"  at  time  tn 

Density  of  material  transported  across 
zone  boundary  "jLm" 

Density  of  zone  "a"  at  time  tn 
Volume  of  zone  "a"  at  time  tn 


Constants 

X,u  Lame1  constants 

Cq  Input  constant  to  control  the  number  of 

zones  over  which  shocks  are  spread 


a,  b.  A,  B 

a>  V  Es 


Tlllotson  Equation  of  State  constants 
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Figure  14 

SCHEMATIC  OF  THE  POINTS  AND  SIDES  OF  THE  FOUR 
QUADRILATERAL  ZONES  (a,  b,  c,  d). 

The  labeling  of  this  figure  is  consistent  with  the  notation 
used  in  the  equations  of  Appendix  I,  which  describe  the  cal¬ 
culations  for  interior  and  boundary  zones  both. 


Strain  Calculation 

Let  a  quadrilateral  zone  be  divided  into  two  triangles  by  a 
diagonal  connecting  two  of  its  vertices  a,  g.  Let  a,  g,  Y  be  a 
clockwise  ordering  of  the  vertices  of  one  of  the  triangles.  Also 
let  ra  be  the  position  vector  of  the  point  a,  etc.  for  the  unstrained 
quadrilateral  and  r£,  etc.  the  corresponding  vectors  for  the 
strained  quadrilateral. 


II 

1 

-< 

(42) 

-  yi  -  yy 

(43) 

«a 

-  2a  ’  zy 

(44) 

«i 

=  za  -  zy 

(43) 

?B 

=  ye  -  yY 

(46) 

?B 

-  n  -  y; 

(47) 

CB 

-  zb  -  ZY 

(48) 

Ci 

-  H  ■  ZY 

(49) 

A 

=  "  5gCa 

(50) 

®22 

-  (Mi  -  ViV* 

(51) 

CO 

CM 

CO 

-  -(*6*i  -  ViV* 

(52) 

a32 

=  (Va  '  ViV* 

(53) 

a33 

-  ‘(Vi  -  ViV* 

(54) 

Repeat  Eqs.  42  through  54  for  each  of  the  four  triangles  into 
which  the  quadrilateral  can  be  divided  by  its  two  diagonals  ; 
compute  a22,  etc.,  as  the  arithmetic  mean  of  the  four  values  of 
a22,  etc.  so  generated.  Then  calculate  : 
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(55) 


t22 

S3 

22  32 

*23 

=  »22S23  +  a32a33 

S3 

■  a232  +  a332 

S3 

=  0,  set 

\ 

1*22 '  If  t22 

>  ‘33 

+ 

1*33*  lf  *22 

<fc33 

(56) 

(57) 

(58) 
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(66) 


Of  the  four  unit  vectors  A±  and  their  negatives  choose  as  the 
strain  axes  the  two  having  the  largest  positive  y  and  z  components 
respectively.  These  are  called  A  and  A  , 


e 

y 

-  h-  1 

(67) 

c 

z 

"  E2-  1 

(68) 

e 

X 

■  V  1 

(69) 

A 

-  (*"/*„)  - 1 

(70) 

nn 

-  en/o0 

(71) 

m” 

«  rin  -  l 

(72) 

62 


For  simplicity,  the  transport  calculation  defined  by  Eqs.74  through 
82  refers  to  a  mesh  of  Eulerian  rectangular  zones.  The  general 
case  requires  the  additional  calculation  of  the  relevant  interior 
vector  areas  for  momentum  transport,  and  the  inclusion  of  the 
mesh  point  motion  in  the  definition  of  transport  velocity. 


By  definition,  for  any  variable  f  (scalar,  vector,  or  tensor),  let 


r  =  iff”"1  +  f") 


Then  compute 

"a  ml  -  +  *l) 

'Qmt  -  5(y» +  } 


- 

z<  -  2m 
"  ** 

\  0 
^  -  ~zm 

-  h- 
0 


{am!+  mam 


(73) 


(74) 


(75) 

(76) 


where  the  point  m  follows  the  point  Si  sb  the  perimeter  of  a  zone 
is  traversed  clockwise. 


(77) 


wn-£ 

=23 


(78) 
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1 - - 

(pWA)12  «*  *2-21 

i 

1 

1 

(79) 

. 

(pwa)23  -  p23w?32  *0.32 

(80) 

where,  depending  on  the  smoothness  of  the  density  field  In 
i  neighborhood  of  the  zone  at  time  tn,  either 

the 

*12  -  KC1  ♦  -  CSS t-o-aVMM* 

zj)  (81) 

1 

$  or 

["S'1-  lf  (&$  •  Sai)  *  o 

P 12 

"S'1-  lf  &a*  ’fta)  <  0 

1 

(82) 

An  analogous  computation  Is  made  for  p23 

• 

yn  b  yn-l  m  yO 

(83)  1 

mn  =  m11’1  -  An’^t^(pWA)12  +  (pWA)23  +  (pWA)^ 

+  (pwa)4i| 

(84) 

pn  -  mnAn 

* 
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Stress  Calculation 


R  -  (Ay,  Az)  (86) 

py  0  0 

IP  -  0  Pz  0  (87) 

,  0  0  Px 

IPn  =  R  P  Rtr  (88) 

Where  the  components  PyJ  Pz,  Px  of  P  are  given  by 

Py  -  -(**  +  2u«y)  (89) 

Pz  -  -(XA  +  24«z)  (90) 

Px  -  -(**  +  2*1^  (91) 


for  an  elastic  medium,  or  P_  ■  P_  «  P_  ■  P  if  the  material  can 

y  z  a 

be  described  hydrodynamic  ally.  One  such  hydrodynamic  description 
for  TUFF  is  the  Tillotson  (Ref.  8)  Equation  of  State: 

P  -  |a  +  b/gj  |En/VnJ+  V1  +  Bwn2  (92) 

when  V/VQ  <  1  for  all  En  >  0 
VA0  <  Vs  for  all  En  <  Eg 

P  =  aEnon  +  [(bEV/g)  +  An"  exp(eM>n)j  exp[-a(un/r'n)S]  (93) 
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when 
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_n_n  „n,n  . 
yJzl  "  ylzj  J 


i,j  -  1, 2,3,4 


Qi 


Q 


iy 


aiz 
\  0 


1 

6 


zi-lfo.-l+  yi)  "  zl+l(yi+  yi+l)  +  *1-1, l  +  *i, 
-yi-l(yi-l  +  yi)  +  yi+lfo.  +  yi+l) 


i+1 


1103) 


For  non-Eulerian  coordinate  systems, 
4 

V  2  S'* -ft  i 

i-i 

Y*1  .  Y"’1  +  Y  4n-it 
a  a  a 


Yn  Is  calculated  as 
a 


(102) 


(103) 


Define 


y-  “  [(yl  +  Vs  +  yD/3] 


i 


(104) 


(y2  -  yd)zi  +  (yd  -  y\)z2 

(y2  -  yx) 


(105) 


Similar  definitions  hold  for  the  points  2,  3,  ®  W.8UT*  13 


*i  -  (y?  -  »2><s  -  *;)  ^  i-i 


(106) 


An  analogous  definition  holds  for  1=2, 3, 4. 
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(10 1 


^llO^iy  "  Ai)  +  ^12  ^iz  +  *Vl 
^l2(aiy  “  Ai)  +  P^22  O-lz 


(pWAE)12  *  (pWA)12  (100) 

where,  depending  on  the  smoothness  of  the  energy  field  In  the 
neighborhood  of  a  zone  at  time  tn,  either 

E12  =  iC^'1  +  c1)  -  G£4  -Q.2iyn-h  Ej-VCzS  -  z£)  (109) 

or 

E  fag"1,  If  (w£4  -fl21)  >  0 

12  (eS’1*  lf  ftjJi*  *QL21^  <0  (110) 

Et  =  (PWAE)12  +  (pWAE)23  +  (PWAE)31|  +  (pWAE)4l  (ill) 

,  4 

Ea  “  Ea"1  "  An”^t  CEt  +  Z  ^l’-l3  (H2) 

1*1 


«?  -  C1  +  +  ?bl  +  ?cl  +  ?dl)  . 

(113) 

Sal  - 1  'anli  a  aml  1 

(114) 

6a2  *  1  m^mil  ^  ^mt  I 

(115) 

CO 


(116) 
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^  =  p  + 


(127) 


» n  -)i 
nn  -Vi 


[pv 

0 

0 

-1  =  vp-i  4n"it 
i-l  =  J,  tn~h 


(128) 

(129) 
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At  the  axis  of  symmetry  (z-axis)  J  »  l): 

U  -  Of)y  -  0  (130)- 

‘Q-mi  “  "Ami  -  0  U3U 

If  point  2  of  Figure  4  is  a  point  on  the  axis  of  symmetry  then, 

(«!!)z  ■  ("S'1) z  +  (?as  +  ?aa)z  4"‘4t  (132) 

m2  -  t(ma  +  m^)  (133) 

f£*  -  (134) 


At  the  boundary  logically  parallel  to  the  axis  of  symmetry 
(J  =  JMAX): 


u  =  («"),  '  0 


(135) 


If  point  6  of  Figure  4  is  a  point  of  the  JMAX  boundary, then 
(6?7g  +  S?6^z  18  asauraed  to  be  given.  If  (6F?6  +  6Fg5)z  =  0, 

the  boundary  condition  is  one  of  "free  sliding."  Next, 

676  +  6?65)y  *  -  CFc6  +  -b6)y  (136) 

Now  both  components  of  (f?7g  +  ^65)  are  ^Tlown* 

C«g)z  -  (f?76  +  *c6  +  ?b6  +  6?6s)z  ^  +  (jS'Oz  (137) 


”6  *  Kmc  +  “h) 


(138) 
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Vtfi4  =  f^V^l  -  ^6'4 

*  < 


(139) 


The  resultant  applied  force  (^£75  +  ^Fg^)  contributes  an  amount 

P6~2*(^?76  +  ^-65)  to  the  overa11  rate  of  work  W11"2  on  the  entire 
system.  It  also  contributes  to  the  total 

Impulse  delivered  to  the  system  in  time  A"’^t. 

Boundary  (K«l)  with  velocity  prescribed  (i.e.,  if  point  8  of 
Figure  4  is  a  point  of  the  K=1  boundary,  then  y§+4  is  given 
for  all  n). 


±(md  +  mc) 


ag  -  HOT4  +  sT4) 


(140) 

(141) 


8?e7  +  %  “  ($  *  «e_1)/4n'4t  -  (Fd8  +  Foa)  <l42> 

8  8 

The  resultant  applied  force  Fg^  +  F^g  contributes  an  amount 
yg-K8?87  +  ^-9&)  t0  the  overaH  rate  of  work  W11-5  on  the  entire 
system.  In  the  time-step  An“^t,  it  alBO  contributes  w 

to  the  impulse  delivered  to  the  entire  system. 


Top  boundary  (K  «  KMAX)  with  velocity  prescribed  (i.e,,  if  point  4 
of  Figure  5  is  a  point  of  the  KMAX  boundary,  then  y5j  is  given 
for  all  n) 


“  t(”b  +  ma) 

(1^3) 

aS 

-  HfsT4  +  yS’4) 

(144) 

4?43 

+  4?54  '  <K  -  "S"1)/4"'4*  '  <?b4  +  ?.*) 

(145) 
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wf>- 


4  4 

The  resultant  applied  force  contributes  an  amount 

UjJ”?  •  C^?43  +  ^54)  to  the  overall  rate  of  work  W11-^  on  the 
entire  system.  In  the  time-step  An”^t,  It  also  contributes 

L  \  n.  A 

?43  +  ?54/a  to  the  irapul8®  delivered  to  the  entire  system. 


Sc  ithwest  comer  (j«l,  to*l)  with  velocity  prescribed (l.e. ,  If 
point  9  of  Figure  5  Is  the  southwest  comer  point  then  18 
given  for  all  n,  and  U^+2  *  < Spy  -  °>- 

m9  =  imd  (146) 
%  -  ?d9  (147) 


Northwest  comer  (J-1,  K=KMAX)  with  velocity  prescribed  (l.e..  If 
point  3  of  Figure  5  Is  the  northwest  comer  point,  then  Is 
given  for  all  n,  and  'f*  ■  (?3n)y  -  °>- 

m3  =  imfl  (148) 

3?43  -  (M3  -  -  Fa3  (149) 

Northeast  comer  (j=JMAX,  k=KMAX)  with  velocity  prescribed  (l.e., 
if  point  5  of  Figure  5  is  the  northeast  comer  point,  then  u]?+5  is 
given  for  all  n,  and  U|+4  -  (Spy  *  °)' 

m5  =  (150) 

%k  +  5?65  “  (?5  *  Sg"1)/*"'4*  -  ?65  (151) 
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Southeast  comer  (J-JMAX,  K=l)  with  velocity  prescribed  (i.e^,  lf 
point  7  of  Figure  5  is  the  southeast  comer  point,  then  5  is 


given  for  all  n,  and 


*7 


7?76  +  ?87 


(#  -  -  Fc? 


(152) 


(153) 


APPENDIX  II 
INTERFACE  EQUATIONS 
FOR  AFTON  2A 
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Figure  15 

SCHEMATIC  ARRANGEMENT  OF  MESH  POINTS, 
HALF- ZONES,  ANT  TRIANGLES  AROUND  AN 
INTERFACE  POINT 


All  subscripts  used  in  Eq.  154  through  178 
which  determine  motions  of  an  interface 
point,  refer  to  the  labeling  shown  in  this 
figure. 
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-12 


(154) 


-  k  x  (rJJ”1-  r 1  )/1  Tg"1-  iTi"3! 

(z^-1  -  zj-1) 

yn-1  .  yn-l  j  (155) 

*A  -  {  [W1)2  ^  +  W1)8]^  (156) 

2 a  -  [Or*  -  y^K1  ♦  (y?1  -  y^T1}^1-  y?'1) 

rj  -  rA  +  i^-3/2  +  u2*3/2>n-it  (158) 


The  final  position  2'  of  the  interface  point  2  is  found  by 
iteration.  Each  iteration  is  begun  with  a  guess  at  the  proper 
value  of  the  variable  a,  which  is  the  component  of  the 
particle  velocity  at  the  point  2  nonnal  to  the  interface; 
is  the  first  guess  at  a. 


*(?12  +  £23) 


n2  x  k 


n_ 


z2 

V 

\  0 


„n-l  ,  „(l)  „  An-^- 
r2  +  a'  '  rigA  *t 


(159) 

(160) 


(161) 


(157) 
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Tr 


*(«§ ♦  i'1) 


(162) 


*2 1  "  i(z2<  +  [  use  guessed  value  for  Z2,](l63) 


i(zA  +  2  a)  >etc  • 


Referring  to  triangle  2' ■  Ii 


(164) 


/  ^5^5  +  *2*)  “  ^A&2'  +  yA)  +  *2*5  +  ^A2' 


f7  n"^  *  -J 
U.  2*  5 


-  y5(y5  +  y2t)  +  yA(h<  +  yj 

0 


(165) 


Similar  expressions  hold  for  the  other  two  corner  points  of 
the  triangle.  Next, 


un”‘2 

IT  2* 


_  i 

n-2 


—A 


(j£.  -  rS-1)/An-it 
ft?  -  r.)/A"-it 


(166) 


(167) 


Compute 


\  -  ^  •  Q-^ +  yS'4  •  o-a*4  +  sT4  •  3-r4  (168) 


y"  =  y  J'1  +  Yx  An"n. 


(169) 
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Calculate  principal  strains  and  strain  axis  directions  for 
triangle  I,  using  rj  and  r g  to  obtain  rj.  Repeat  the  calcula 
tlons  for  triangles  II ,  III*  IV.  Iterate  to  solve  the 
following  equations  for  the  principal  stresses  pJJj  pjjj,  P^j 
and  the  internal  energy  eJ: 

^I  "  Pyl  ^1*  eyl'  *zlj 
Form  P^,  pj2,  Pg2  for  triangle  I 
Calculate: 


‘2' 


aa  "  a5 


|[(y£,  -  y")(z5  -  &<&,  -  *$(%  -  y»l>  0(170) 

» 


pn-i/on-i  _  .  N  .  pn-£  nn-£  pn-£  . 
rll  v^2*y  *2 V  +  r12  u2'z  +  rx  *2' 


pn-£fnn-£  «  \  +  pn-i  a  n-£ 
*12  \u2'y  a2»/  *22  u2'z 


(171) 


Ej  -  Ej"1  -  An’^t(u57^F2,  +  uj’*  •  fa  +  yi?"*  •  f5)  (172) 


Repeat  the  calculations  for  triangles  II,  III,  IV. 


Calculate: 


2^B2»  "  (^B  +  y2») 


/  4  -  \ 


*5  - 


0 


(173) 


2A?B2'  = 

(PII  -  PIIl)2&B2- 

(174) 

2$f2,.A  - 

(PI  ■  Prv)25-2'A 

(175) 

2AF 

2M2«a  +  2— B2‘ 

(176) 

2APn  “ 

n^AF. 

(177) 

Form  the  next  guess  at  a,  and  repeat  the  calculation  starting 
with  Equation  (l6l).  Successive  a-guesses  are  Intended  to 
reduce  AFn  systematically  to  zero. 


Compute: 


*@r* + 


(178) 


Converged  value  of  a 


where 

nz2  ny2 

R2  58 

"V  nz2 


(179) 

(180) 


(181) 
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Figure  16 

SCHEMATIC  OF  THE  INTERFACE  AND  HALF- ZONES 


All  subscripts  used  in  Eqs.  178  through  212 
which  determine  the  half- zone  variables,  refer 
to  the  labeling  shown  in  this  figure. 


Calculate  strain  In  _ 

Calculate  stress  In  ,  using  the  old  Internal  energy  En_1 

'CL 

Calculate: 


Q»2p3i 


-  -£($'  +  ?3i) 


\ 


_n  n 

z3‘  ”  z4' 

y4»  -  y3i 

o 


(182) 


4*3' 


Average  of  the  stress  In  ?d_  with  the  stress  In 
the  zone  sharing  face  4*3*  with 


?4’3'  35  ^4*3*  Q>4'3» 


Similarly,  calculate  5*3 * 2 *  *  ^*6 •  5 ■  *  -5»i'  an<^ 

Calculate: 


0 


(183) 

(184) 
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$2'H 


?2*  "  ?!• 


y2*  “  yi. 

z2»  “  zl« 


(187) 


The  condition  for  a  strongly  glued,  or  nonsliding  Interface 
Is  then  expressed  as  follows: 


?2«1»’  t2»l'  “  |[ra+(fl'4'  +  -4* 3»  +  -3* 2'  +  -W-) 

+  ^6'5'  +  %'l' 

+  *«)}  ’  t2'l'|  m+  +  m_ 


(188) 


ym  -  [(yfi  +  yi.y2*  +  y|»)/3] ^  (l89) 

5m  -  [(ym  -  yi»)52* +  (y2*  -  ym)5i *]/&>'  -  yr) (190) 

There  are  similar  expressions  for  y^,  ym_,  zm+,  zm_;  these 
were  formed  as  part  of  the  Interior  (i.e.,  nonboundary) 
motion  calculation 

A3,  =  4 [(y3t  -  y J(?2<  -  o  -  (y2.  -  v)C53'  -  (m) 

A4*  “  *[0k-  -  h<)Czm  '  '  *4  <)(*»-  *  51')]  ( 192 ) 

I 

A^t  and  A^,  are  associated  with  the  half-zone  corresponding 
areas  A^,  and  Ag,  must  be  calculated  for  the  half-zone  ^+. 
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s 


Solve  simultaneously 


for  eJJ,  E?: 


pQn-i 

-  i(*^  +  «?  +  PftJ"1) 

PQn-i 

-  4(pD  +  «"  +  Pft"*1) 

1  fm+ 

,  ”  ^m+ 

-m+m 

-  (?<£'*)•  Kyra+  +  y») 

i  0 

» 

1  9  _  » 

p 

=-m-m 

-  «'*)•  Kv  +  yj 

f  V  zm 

y«  -  yra- 

0 


(193) 

(194) 

(195) 


(196) 


PQn-i 

(?1'ih)n 


I  ^2  ■1*1 


(197) 


“(J2«l')s 

(j2*l')y 


0  , 


2'l')s 

2'l«)y 


0 


-  *(*2» + 


“  Q?2’l'  *  ^2'l0^  ^2'1^ 

(S2«l»)y  C^2,l,^z  0 

*  *(S2»l0z  (J2»l')y  0 

0  0  1 


(202) 


(198) 

(199) 

(200) 

(201) 
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4 


-i\l 


0  •  ^  •  i(y1(  *ym) 


*1'  “  zra 

ym  -  *i» 
0 


z2'  “  zm 


(?2«m^T 


-I'm 


^2'm 


(?l«mV 

F^r  (fl'mX 

0 

I  (F2'ii)t 

Kn*  CF2'm)N 


(203) 


0  -X  *  ^2*  +ym>  ym-y2'  >  (204) 


(205) 


(206) 


<  -E  r1  +  [Ob*-  s5->w  K-  Ss«H 

+  C?6.-  y2.)-?2.J4n'it 

a 

-  Cu5.)y(px+s0  -  (SeOyCvteO 

*?  “E-'1  +  [<fc.-y30*s1i«+  <y3.- 

+  O/itt-  2i.>?i.mK'it 

a 

-  Cu30y(px-A3')  -  C»lt.)yCpx-A4>) 


(207) 


(208) 


u 


The  forces  need  to  update  the  momenta  at  3',  4*,  5’,  and  6*  are: 


Px-A3‘ 


-3'  ~  -2'ra  -m-ra  + 

0 


(209) 


Px-A4» 


-m-m  -I'm  +  ® 


(210) 


Px+A5* 


-I'm  ”  -m+m  +  0 


(211) 


Px+V 


-m+m  "  -2'm  +  0 


(212) 
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APPENDIX  III 
FORTRAN  NOTATION 


FOR  AFTON  2A 


Sense  Switch  Control 


Sense 

Switch 

No. 


1 


2 


Use 

(NOTE:  All  Sense  Switches  Are  Normally  Assumed 
to  be  OFF. ) 

S.S.  #1  forces  the  current  problem  to  edit, 
makes  a  restart  dump,  and  returns  control  to 
the  Monitor  System. 

S.S.  #2  forces  the  current  problem  to  edit, 
makes  a  restart  dump,  and  then  starts  calculation 
of  the  next  data  run. 


Equations  of  State 
Tlllotson  Equation  of  State 
Defininitions : 


Case  I 


and 


V  =  ij  II  -  £■  Hi-  ri-1 
H  ^0 


VA0  <1  for  all  En  >0 

VArt  <Va  for  all  En<E' 
os  s 


Pn  =  ^a  + 


b/g  |  (En/Vn)  +  Hxn  +  Bun< 


where 

Case  II 


g  -  (En/E0n2)  +l 

1<V/V0<VS  for  E^E'g 

VA0>VS  for  a11  En>0 

Pn  =  aEnpn  +  j(bEnPn/g)+Auexp(-0h 

where:  g  =  (En/Eori2)+l 

h  =  (VA0)-1  =  i  -1 


exp ( -ah2 ) 


For  TUFF 
a  =  .5 


b  *  1.1 

A  =  .064 

B  =  .07 

vs  =  1000 
E0  =  .005 

E’s  '  -1 
a  =  5  • 

8  =  5  • 
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■Elastic  Medium 

Py  =  -(xa+2uey) 

Pz  =  -(XA+2ucz) 

< 

px  -  -(>4+2^x) 
where 

X,  u  are  Lame'  constants 

A  =  Volume  dilatation 

e  ,  e  ,  e  =  The  three  principal  strains 
y  2  x 

Test  Problem  Data 

For  region  1  X=u=l. 

For  region  2  X=^=l.l 
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INITIAL  INPUT  DATA 


CARD  -  FORMAT  -  VARIABLE  -  VALUE 
1  (16)  ICON 

0 


Any 

Value 

EOF 


2  (9A8)  TITLE  Any 

Value 


3  (6E12.5)  PROBNO  Any 

Value 

4  (1216)  KSV1  0 

1 

KSV2  0 

1 

KSV3 

KSV4  0 

Any 

Value 


KSV5  0 

Any 

Value 

KSV6  Any 

Value 

KSV7  0 

Any 
Value 

KSV8  0 

Any 

Value 


-  MEANING 

Sentinel  to  define  type  of  run 
Normal  run,  start  from 
initial  conditions  given 
below 

Restart  dump  number,  which 
is  used  to  search  dump  tape 
End  cf  file;  stops  run,  no 
more  data  to  follow 

Problem  title  or  description 
NOTE:  Column  one  should 
contain  a  zero  for  carriage 
control  on  printer 

Problem  number.  NOTE:  Out¬ 
put  format  is  (F7.2) 

No  edit  on  MAXN  or  TMAX 
Edit  on  MAXN  or  TMAX 

No  dump  taken  on  MAXN  or  TMAX 
Dump  taken  on  MAXN  or  TMAX 

(Available  Variable) 

No  edit  at  start  of  calcu¬ 
lation 

Number  of  consecutive  cycles 
to  be  edited  at  start  of 
calculation 

No  editing  on  cycle  count  (N), 
ignore  KSV6 

Number  of  cycles  between 
edits 

Number  of  cycles  when  next 
fdit  occurs 

One  cycle  in  each  edit 
Number  of  consecutive  cycles 
in  each  edit 

No  dumping  on  cycle  count, 
ignore  KSV9 

Number  of  cycles  between 
dumps 
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CARD  - 

FORMAT 

-  VARIABLE 

-  VALUE 

-  MEANING 

KSV9 

Any 

Number  of  cycles  when  next 

Value 

dump  occurs 

KSVIO 

— 

(Available  Variable) 

KSV11 

0 

Full  edit  all  grid  points, 
no  extra  card  number  28 

Any 

Number  of  short  edits,  see 

Value 

card  28  for  J  and  K  limits 

KSV12 

0 

Edit  generator  Initial 
conditions 

1 

No  edit  of  generator  Initial 
conditions 

5 

(6E12.5)  SAV1 

0 

No  editing  on  physical  time. 

ignore  SAV2 

Any 

Amount  of  physical  time 

Value 

between  edits 

SAV2 

Any 

Physical  time  next  edit 

Value 

occurs 

SAV3 

0 

No  dumping  on  physical 
time,  ignore  SAV4 

Any 

Amount  of  physical  time 

Value 

between  dumps 

SAV4 

Any 

Physical  time  when  next 

- 

Value 

dump  occurs 

6 

(1216) 

JBOT 

— 

(Available  Variable) 

JTOP 

— 

(Available  Variable) 

KBOT 

— 

(Available  Variable) 

KTOP 

— 

(Available  Variable) 

KBUG 

0 

No  debug  print,  no  card 
number  22 

1 

Take  debug  print  see  card 

22  for  J,  K  limits 

MOTION 

1 

Eulerian  grid  motion 

2 

Lagrangian  grid  motion 

3 

(Available  Sentinel) 

kint(k) 

0 

No  interfaces 

Any 

Number  of  a  K  Line  to  be 

Value 

treated  as  an  interface . 

NOTE:  Five  interfaces  maximum 
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CARD 

-  FORMAT  -  VARIABLE  - 

VALUE 

-  MEANING 

7 

(6E12.5)  DTNM 

Any 

Value 

Size  of  initial  time  step 

8 

(6E12.5)  CUTOFF 

Any 

Value 

Sentinel  used  to  set  a 
minimum  value  of  a  variable 

9 

(I6,2E12.5) 

MAXN 

Any 

Value 

Maximum  number  of  cycles  to 
run  problem 

TMAX 

Any 

Value 

Maximum  physical  time  to 
run  problem 

10 

(1216)  JMIN 

1 

First  J  Line 

JMAX 

Any 

Value 

Number  of  maximum  J  Line  in 
a  region.  NOTE:  Limit  55 

KMIN 

1 

First  K  Line  In  a  region 

KM  AX 

Any 

Value 

Number  of  maximum  K  Line 

In  a  region.  NOTE:  Limit  101 

11 

(2I6,5E12.5/6E12.5) 

JYMIN 

Any 

Value 

Number  of  J  Line  for  first 
radial  component  of  position 
entry 

JYMAX 

Any 

Value 

Number  of  J  Line  for  last 
radial  component  of  position 
entry 

TX(j) 

Any 

Value 

Value  of  radial  component 
of  position  for  JYMIN  to 
JYMAX.  If  JYMAX  is  greater 
than  5,  5  TX(J)  follow  JYMAX 
on  the  first  card,  6  TX(J) 
per  card  follow  until 

TX (JYMAX)  is  reached 

12 

(216 , 5E12 . 5/6E12 . 5 ) 
KZMIN 

Any 

Value 

Number  of  K  Line  for  first 
axial  component  of  position 
entry 

KZMAX 

Any 

Value 

Number  of  K  Line  for  last 
axial  component  of  position 
entry 
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CARD  - 

FORMAT  -  VARIABLE 

-  VALUE 

-  MEANING 

TY(K) 

Any 

Value 

Value  of  axial  component  of 
position  for  KZMIN  to  KZMAX. 
If  KZMAX  is  greater  than  5, 

5  TY(K)  follow  KSMAX  on  the 
first  card,  6  TY(K)  per  card 
follow  until  TY (KZMAX)  is 
reached 

NOTE:  If  JYMIN  equals  JMIN  and  JYMAX  equals  JMAX,  no  card  13 
follows . 

13 

(I6,2E12 .5) 

JTMAX 

Any 

Value 

Number  of  J  Line  for  last 
radial  component  of  position 
entry 

DELTAY 

• 

Any 

Value 

Initial  radial  distance 
across  a  zone 

RATEY 

Any 

Value 

Rate  of  change  in  radial 
distance  across  a  zone 

NOTE:  If.  JTMAX  is  less  than  JMAX  repeat  card  13. 

NOTE:  If  KZMIN  is  equals  KMIN  and  KZMAX  equals  KM  AX,  no  card 
14  follows. 


14  (I6,2E12.5) 


KTMAX 

Any 

Value 

Number  of  K  Line  for  last 
axial  component  of  position 
entry 

DELTAZ 

Any 

Value 

Initial  axial  distance  across 
a  zone 

RATEZ 

Any 

Value 

Rate  of  change  in  axial 
distance  across  a  zone 

NOTE:  If  KZMIN  is  greater  than 
KM AX  repeat  card  14. 

KMIN  or  KTMAX  is  less  than 

15 

(6E12.5)  UXLBIN 

Any 

Value 

Radial  component  of 
velocity  at  JMIN,  KMIN 

UXBIN 

Any 

Value 

Radial  component  of 
velocity  at  an  interior  J, 
KMIN 

UXRBIN 

Any 

Value 

Radial  component  of 
velocity  at  JMAX,  KMIN 
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CARD 

-  FORMAT  -  VARIABLE 

-  VALUE  - 

MEANING 

UYLBIN 

Any 

Value 

Axial  component  of  velocity 
at  JMIN,  KMIN 

UYBIN 

Any 

Value 

Axial  component  of  velocity 
at  an  interior  J,  KMIN 

UYRBIN 

Any 

Value 

Axial  component  of  velocity 
at  JMAX,  KMIN 

16 

(2l6,E12 .5/216, E12 .5) 

JUMAX  Any, 

Value 

• 

Number  of  last  J  entry  for 
radial  component  of  velocity 
at  an  interior  K 

KUMAX 

Any 

Value 

Number  of  last  K  entry  for 
radial  component  of  velocity 
at  an  interior  ,K 

UXIN 

Any 

Value 

Radial  component  of  velocity 
at  an  interior  K 

JVM  AX 

Any 

Value 

Number  of  last  J  entry  for' 
axial  component  of  velocity 
at  an  interior  K 

KVMAX 

Any 

Value 

Number  of  last  ft  entry  for 
axial  component  of  velocity 
at  an  interior  K 

UYIN 

Any 

Value 

Axial  component  of  velocity 
at  an  interior  K 

17 

(6E12.5)  UXLTIN 

Any 

Value 

i 

Radial  component  of  velocity 
at  JMIN,  KM AX 

UXTIN 

Any 

Value 

Radial  component  of  velocity 
at  an  interior  J,  KMAX 

UXRTIN 

Any 

Value 

Radial  component  of  velocity 
at  JMAX,  KMAX 

UYLTIN 

Any 

Value 

Axial  component  of  velocity 
at  JMIN,  KMAX 

UYTIN 

Any 

Value 

Axial  component  of  velocity 
at  an  interior  J,  KMAX 

UYRTIN 

Any 

Value 

Axial  component  of  velocity 
at  JMAX,  KMAX 
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CARD 

-  FORMAT  -  VARIABLE 

-  VALUE  - 

MEANING 

18 

3(216, E12. 5) 

JZMAX 

Any 

Value 

Number  of  last  J  entry  for 
R  ZERO 

»; 

KZMAX 

.  r' 

Any 

Value 

Number  of  last  K  entry  for 
R  ZERO 

R  ZERO 

Any 

Value 

Reference  density  (pa)>  a 
constant 

JRMAX 

Any 

Value 

Number  of  last  J  entry  for 
RHO  1 

KRMAX 

Any 

Value 

Number  of  last  K  entry  for 
RHO  1 

RHO  1 

Any 

Value 

Initial  material  density 

JEM  AX 

Any 

Value 

Number  of  last  J  entry  for 
El 

KEMAX 

Any 

Value 

Number  of  last  K  entry  for 
El 

El 

Any 

Value 

Initial  specific  internal 
energy 

19 

(6E1^.5)  tiny  A 

Any 

Value 

Tillotson  equation  of  state 
constant 

TINY  B 

Any 

Value 

Tillotson  equation  of  state 
constant 

BIG  A 

Any 

Value 

Tillotson  equation  of  state 
constant 

BIG  B 

Any 

Value 

Tillotson  equation  of  state 
constant 

RCP  V  S 

Any 

Value 

Tillotson  equation  of  state 
constant 

E  ZERO 

Any 

Value 

Tillotson  equation  of  state 
constant 

20 

(6E12.5)  E  S 

Any 

Value 

Tillotson  equation  of  state 
constant 
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CARD  -  FORMAT  -  VARIABLE  -  VALUE  -  MEANING 


ALFA 

Any 

Value 

Tillotson  equation  of  state 
constant 

BETA 

Any 

Value 

Tillotson  equation  of  state 
constant 

QCON 

Any 

Value 

Q  constant 

NOTE: 

Cards  19  and  20 

appear  NREG  times. 

21 

(6E12.5)  SFMLYR 

Any 

Value 

Radial  component  of  the 
external  force  applied  to  a 
zone  on  the  JMAX  boundary 

SFMLZR 

Any 

Value 

Axial  component  of  the 
external  force  applied  to 
a  zone  on  the  JMAX  boundary 

NOTE: 

If  KBUG  is  equal 

to  0,  no 

card  22  follows . 

22 

(1216)  JBMIN 

Any 

Value 

First  J  Line  to  be  included 
in  a  debug  edit 

JBMAX 

Any 

Value 

Last  J  Line  to.be  included  in 
a  debug  edit 

KBMIN 

Any 

Value 

First  K  Line  to  be  included  in 
a  debug  edit 

KBMAX 

Any 

Value 

Last  K  Line  to  be  included  in 
a  debug  edit 

NOTE:  If  JUMAX  x  KUMAX 

no  card  23  follows . 

is  equal 

to  0  or  equal  to  JMAX  x  KM  AX, 

23 

(2I6,E12.5) 

JUMAX 

Any 

Value 

Number  of  last  J  entry  for 
radial  component  of  velocity 
at  an  interior  K 

KUMAX 

Any 

Value 

Number  of  K  entry  for  radial 
component  of  velocity  at  an 
interior  K 

UXIN 

Any 

Value 

Radial  component  of  velocity 
at  an  interior  K 

NOTE:  If  JUMAX  x  KUMAX  is  greater  than  0  and  less  than 
JMAX  x  KMAX,  repeat  card  23 . 
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CARD  -  FORMAT  -  VARIABLE  -  VALUE  -  MEANING 

\ 

NOTE:  If  JVM  AX  x  KVMAX  is  equal  to  0  or  equal  to  JMAX  x  KM  AX, 


no  card  24  follows . 

24  (2I6,E12.5) 

JVM  AX 

Any 

Valine 

Number  of  last  J  entry  for 
axial  component  of  velocity 
at  an  interior  K 

KVMAX 

Any 

Value 

Number  of  last  K  entry  for 
axial  component  of  velocity 
at  an  interior  K 

UYIN 

Any 

Value 

Axial  component  of  velocity 
at  an  interior  K 

NOTE:  If  JVM  AX  x  KVMAX  is  greater  than  0  and  less  than 

JMAX  x  KM  AX  repeat  card  24. 

NOTE:  If  JZMAX  x  KZMAX 
no  card  25  follows . 

is  equal 

to  0  or  equal  to  JMAX  x  KMAX, 

25  (2I6,E12.5) 

JZMAX 

Any 

Value 

Number  of  last  J  entry  for 
the  reference  density 

KZMAX 

Any 

Value 

Number  of  last  K  entry  for 
the  reference  density 

R  ZERO 

Any 

Value 

Reference  density 

NOTE:  If  JZMAX  x  KZMAX 
x  KMAX,  repeat  card  25. 

is  greater  than  0  and  less  than  JMAX 

NOTE:  If  JRMAX  x  KRMAX 
no  card  26  follows . 

is  equal  to  0  or  equal  to  JMAX  x  KMAX, 

26  (2l6,E12 .5 ) 

JRMAX 

Any 

Value 

Number  of  last  J  entry  for 
density 

KRMAX 

Any 

Value 

Number  of  last  K  entry  for 
density 

RHO  1 

Any 

Value 

Density 

NOTE:  If  JRMAX  x  KRMAX  is  greater  than  0  and  less  than 
JMAX  x  KM AX,  repeat  card  26. 
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CARD 

FORMAT  VARIABLE 

VALUE 

MEANING 

NOTE:  If  JEMAX  x  KEMAX 
no  card  27  follows . 

is  equal 

to  0  or  equal  to  JMAX  x  KMAX 

27 

(2I6,E12.5) 

JEMAX 

Any 

Value 

Number  of  last  J  entry 
for  specific  internal 
energy 

KEMAX 

Any 

Value 

Number  of  last  entry  K 
for  specific  internal 
energy 

El 

Any 

Value 

Specific  internal  energy 

NOTE:  If  JEMAX  x  KEMAX  is  greater  than  0  and  less  than  JMAX 
x  KM  AX,  repeat  card  27. 

NOTE:  If  KSV11  equals  0,  no  card  28  follows. 


28  (4l6 ) 

' 

JJMIN 

Any 

Value 

First  J  Line  to  appear  in 
an  edit 

JJMAX 

Any 

Value 

Last  J  Line  to  appear  in 
an  edit 

\ 

KKMIN 

Any 

Value 

First  K  Line  to  appear  in 
an  edit 

KKMAX 

Any 

Value 

Last  K  Line  to  appear  in 
an  edit 

This  is  the  end  of  the  Initial  Input  Data,  it  may  be  followed 
by  another  Initial  Input  Data  Deck,  a  Restart  Data  Deck,  or 
three  blank  cards  signifying  end  of  run,  no  more  Data  Decks 
to  follow. 
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RESTART  INPUT  DATA 


CARD 

-  FORMAT  -  VARIABLE 

-  VALUE  - 

MEANING 

1 

(16)  ICON 

Any 

Value 
Greater 
Than  0 

Number  of  restart  dump  from 
which  to  start  calculation 

2 

(9A8)  TITLE 

Any 

Value 

Problem  title  or  description. 
Column  1  should  contain  a 

0  for  carriage  control  on 
printer 

3 

(1216)  KSV1-12 

See  card  4,  Initial  Input  Data 

4 

(6E12.5)  SAV  1-4 

See  card  5,  Initial  Input  Data 

5 

(I6,2E12.5) 

MAXN 

Any 

Value 

New  maximum  cycle  count,  stop 
problem  If  cycle  count  (N) 
exceeds  this  number 

TMAX 

Any 

Value 

New  physical  time,  stop 
problem  If  TIME  exceeds  this 

number 

NOTE:  If  KSV11  equals  0,  no  card  6  follows. 

6  ( 4l6 )  JJMIN-KKMAX  See  card  28,  Initial  Input  Data 


This  is  the  end  of  Restart  Input  Data,  it  ma^  be  followed  by 
another  Restart  Data  Deck,  and  Initial  Input  Data  Deck,  or 
three  blank  cards  signifying  end  of  run,  no  more  Data  Deck 
to  follow. 
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Variables  In  COMMON  or  DIMENSION  and  their  Deflnlt  1  ons 


VARIABLE 

DIMENSION 

DEFINITION 

NREG 

Number  of  regions  in  problem 

MOTION 

Sentinel  to  specify  the  coordinate 
system  to  be  used 

PRQBNO 

Problem  number 

DUMPV 

600 

Special  area  in  common,  equivalent 
to  NREG,  first  record  of  data  dump 

N 

Cycle  number 

TIME 

Physical  time  of  problem 

DTNM 

Time  step  (At) 

RDTNM 

1  ./At 

DTNMN 

Time  step  calculated  for  the  next 
cycle 

DTNMP5 

One-half  the  time  step  (.5  x  At) 

nrNM2 

Twice  the  time  step  (2,  x  At) 

CUTOFF 

« 

Sentinel  used  to  Bet  a  minimum 
value  of  a  variable 

CUT1 

At  x  CUTOFF 

CUT2 

DTNM2  x  CUTOFF 

MAXN 

Maximum  cycle  count,  stop  problem  N 
If  exceeds  this  number 

TMAX 

Maximum  physical  time,  stop  problem 
If  TIME  exceeds  this  number 

SAV 

12 

Floating  point  sentinels 

KSV 

24 

Fixed  point  sentinels 

TITLE 

9 

Title  or  description  of  problem 
(header  card) 

JMIN 

First  J  Line  in  a  region 

JMAX 

Last  J  Line  in  a  region 
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VARIABLE 

DIMENSION 

DEFINITION 

JL 

JMIN  +  1,  J  Line  in  a  region 

J3 

JMIN  +  2,  J  Line  in  a  region 

JR 

JMAX  -  1,  J  Line  in  a  region 

JRM 

JMAX  -  2,  J  Line  in  a  region 

JBMIN 

Minimum  J  Line  for  debug  edit 

JBMAX 

Maximum  J  Line  for  debug  edit 

KMIN 

First  K  Line  in  a  region 

KM  AX 

Last  K  Line  in  a  region 

KB 

KMIN  +  1,  K  Line  in  a  region 

KBMIN 

Minimum  K  Line  for  debug  edit 

KBMAX 

Maximum  K  Line  for  debug  edit 

KINT 

5 

K  index  of  an  interface 

KM  AX  -  1,  K  line  in  a  region 

KM AX  -  2,  K  Line  in  a  region 

Sentinel  to  define  type  of  start, 
e.g.,  start  from  restart  dump 

K  Line  count  for  output 

K  index  for  K  Lines  in  core  (I  =  1, 

K  Line  count  for  calculation 

Data  dump  sentinel 

Edit  sentinel 


NSIG 

Sentinel  to  define  action  to  be 
taken  at  the  end  of  a  cycle,  e.( 
read  in  new  problem 

NMASS 

Negative  mass  sentinel 

NDMP 

Number  of  restart  dump 

KT 

KTM 

ICON 

LINCT 

IXI 

KC 

NDPA 

NEDIT 
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VARIABLE 


DIMENSION 


DEFINITION 


TX 

55 

Radial  component  of  position  of  a 
mesh  point 

TY 

101 

Axial  component  of  position  of  a 
mesh  point 

UYLBIN 

Axial  component  of  velocity  at 
JMIN,  KMIN 

UYBIN 

Axial  component  of  velocity  at  an 
interior  J,  KM AX 

UYRBIN 

Axial  component  of  velocity  at 
JMAX,  KMIN 

UXLBIN 

Radial  component  of  velocity  at 
JMIN,  KMIN 

UXBIN 

Radial  component  of  velocity  at 
an  Interior  J,  KMIN 

UXRBIN 

Radial  component  of  velocity  at 
JMAX,  KMIN 

UYLTIN 

Axial  component  of  velocity  at 
JMIN,  KM AX 

UYTIN 

Axial  component  of  velocity  at 
an  interior  J,  KM AX 

UYRTIN 

Axial  component  of  velocity  at 
JMAX,  KM AX 

UXLTIN 

Radial  component  of  velocity  at 
JMIN,  KM AX 

UXTIN 

Radial  component  of  velocity  at 
an  interior  J,  KMAX 

UXRTIN 

Radial  component  of  velocity  at 
JMAX,  KMAX 

P  ZERO 

5 

Reference  density 

EIN 

Specific  internal  energy  of  an 
interior  zone 

RHOIN 

Density  of  an  interior  zone 
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VARIABLE 

UYIN 

UXIN 

QCON 
E  S 

ALFA 

BIG  A 

BIG  B 

RCP  V  S 

E  ZERO 

TINY  A 

TINY  B 

BETA 

ICASE 

H 

BET  AH 

ALFAH 

AMUBH 

AMUBMU 


DIMENSION 


5 

5 


DEFINITION 

Axial  component  of  velocity  of 
an  interior  mesh  point 

Radial  component  of  velocity  of 
an  interior  mesh  point 

Q  constant 

Tillotson  equation  of  state 
constant 


5  Tillotson  equation  of  state 

constant 


5  Tillotson  equation  of  state 

constant 

5  Tillotson  equation  of  state 

constant 

5  Tillotson  equation  of  state 

constant 


5  Tillotson  equation  of  state 

constant 


5  Tillotson  equation  of  state 

constant 

5  Tillotson  equation  of  state 

constant 


5  Tillotson  equation  of  state 

constant 


55  Sentinel  to  distinguish  between  the 

two  algebraic  forms  appearing  in 
the  Tillotson  equation  of  state 

55  Working  storage  for  Tillotson 

equation  of  state 

55  Working  storage  for  Tillotson 

equation  of  state 

55  Working  storage  for  Tillotson 

equation  of  state 

55  Working  storage  for  Tillotson 

equation  of  state 

55  Working  storage  for  Tillotson 

equation  of  state 
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VARIABLE 

LAMMA 

EMU 

RXZ 

RYZ 

RXM 

RYM 

RX 

RY 

UN  MX 

UNMY 

UNPX 

UNPY 

U2 

VOL 

Qll 

Q12 

Q22 

QX 

PNM 

PN 


DIMENSION 

5 

5 

55  x  5 
55  x  5 
55  x  5 

55  x  5 

55  x  5 

55  x  5 

55  x  5 

55  x  5 

55  x  5 

55  x  5 

55  x  2 
55  x  5 
55  x  5 

55  x  5 

55  x  5 

55  x  5 

55  x  5 

55  x  5 


DEFINITION 
Lame'  constant  Lambda 

Lame*  constant  Mu 

Initial  radial  position  coordinate 

Initial  axial  position  coordinate 

Radial  position  coordinate  at 
the  start  of  a  time  step 

Axial  position  coordinate  at  the 
start  of  a  time 

Radial  position  coordinate  at 
the  end  of  a  time  step 

Axial  position  coordinate  at 
the  end  of  a  time  step 

Radial  component  of  velocity 
at  the  start  of  a  time  step 

Axial  component  of  velocity 
at  the  start  of  a  time  step 

Radial  component  of  velocity 
at  the  end  of  a  time  step 

Axial  component  of  velocity  at 
the  end  of  a  time  step 

Square  of  the  velocity 

Specific  volume 

Element  of  the  artificial 
viscosity  tensor 

Element  of  the  artificial 
viscosity  tensor 

Element  of  the  artificial 
viscosity  tensor 

Element  of  the  artificial 
viscosity  tensor 

Element  of  the  stress  tensor,  without 
an  artificial  viscosity  contribution, 
at  the  start  of  a  time  step 

Element  of  the  stress  tensor,  without 
an  artificial  viscosity  contribution, 
at  the  end  of  a  time  step 
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VARIABLE 

DIMENSION 

DEFINITION 

Pll 

55  x  5 

Element  of  the  stress  tensor 
minus  Qll 

P12 

55  x  5 

Element  of  the  stress  tensor 
minus  Q12 

P22 

55  x  5 

Element  of  the  stress  tensor 
minus  Q22 

PX 

55  x  5 

Principal  stress  along  the 
azimuthal  stress  axis  minus  QX 

PY 

55 

One  of  the  three  principal  stresses 
without  an  artificial  viscosity 
contribution 

PZ 

55 

One  of  the  three  principal  stresses 
without  an  artificial  viscosity 
contribution 

PQNMXX 

55  x  5 

Element  of  the  total  stress  tensor 
at  the  start  of  a  time  step 

PQNMXY 

55  x  5 

Element  of  the  total  stress  tensor 
at  the  start  of  a  time  step 

'PQNMYY 

55  x  5 

• 

Element  of  the  total  stress  tensor 
at  the  start  of  a  time  step 

PQPIX 

55  x  5 

Total  principal  stress  along  the 
azimuthal  stress  axis  at  the  start 
of  a  time  step 

PQNXX 

55  x  5 

Element  of  the  total  stress  tensor 
at  the  end  of  a  time  step 

PQNXY 

55  x  5 

Element  of  the  total  stress  tensor 
at  the  end  of  a  time  step 

PQNYY 

55  x  5 

Element  of  the  total  stress  tensor 
at  the  end  of  a  time  step 

PQX 

55  x  5 

Total  principal  stress  along  the 
azimuthal  stress  axis  at  the  end  of 
a  time  step 

RHO 

55  x  5 

Density 

VO 

55  x  5 

Reference  specific  volume 

ETA 

55  x  5 

Compression  =  VO  x  RHO 

VARIABLE 

DIMENSION 

DEFINITION 

GMU 

55 

Working  store  for  Tillotson  equation  of 
state.  Excess  compression  =  ETA-1. 

ENM 

55  x  5 

Specific  internal  energy  at  the 
start  of  a  time  step 

EN 

55  x  5 

Specific  internal  energy  at  the 
end  of  a  time  step 

FMASNM 

55  x  5 

Zone  mass  at  the  start  of  a  time 
step 

FMASN 

55  x  5 

Zone  mass  at  the  end  of  a  time 
step 

FMSNZ 

55  x  5 

Momentum  mass 

CMASSI 

55  x  5 

Mass  of  a  zone  associated  with  its 
vertex  I  (I  *1,2) 

AIY 

*  55  x  5 

Radial  component  of  the  vector  area 
subtended  between  wedge  planes  by 
the  side  of  a  zone  (I  =  1,4) 

AIZ 

55  x  5 

Axial  component  of  the  vector  area 
subtended  between  wedge  planes  by 
the  side  of  a  zone  (I  =  1,4) 

AWI 

55  x  5 

Area  of  a  zone  associated  with  one 
of  its  vertices  (I  =  1,4) 

FIY 

55  x  5 

Radial  component  of  force  associated 
with  the  vertex  point  (I)  of  a  zone 

(I  -  1,4) 

FIZ 

55  x  5 

Axial  component  of  force  associated 
with  the  vertex  point  (i)  of  a  zone 
(I  =  1,4) 

FMNMX 

55  x  5 

Radial  component  of  momentum  at  the 
start  of  a  time  step 

FMNMY 

5x5 

Axial  component  of  momentum  at  the 
start  of  a  time  step 

FMNX 

55  x  5 

Radial  component  of  momentum  at  the 
end  of  a  time  step 

FMNY 

55  x  5 

Axial  component  of  momentum  at  the 
end  of  a  time  step 

RH3Z 

55  x  5 ' 

Density  of  material  transported  across 
a  zone  boundary  in  one  coordinate 
direction 

107 


VARIABLE 

DIMENSION 

DEFINITION 

RH1Z 

55  x  5 

Density  of  material  transported  across 
a  zone  boundary  in  the  other  coordinate 
direction 

E3Z 

55  x  5 

Specific  internal  energy  of  a  material 
transported  across  a  zone  boundary 
in  one  coordinate  direction 

E1Z 

55  x  5 

Specific  internal  energy  of  a  material 
transported  across  a  zone  boundary 
in  the  other  coordinate  direction 

RWA3Z 

55  x  5 

Rate  of  transport  of  mass  across  a 
zone  boundary  in  one  coordinate 
direction 

RWA1Z 

55  x  5 

Rate  of  transport  of  mass  across  a 
zone  boundary  in  the  other  coordinate 
direction 

RWAE3Z 

55  x  5 

Rate  of  transport  of  internal  energy 
across  a  zone  boundary  in  one 
coordinate  direction 

RWAE1Z 

55  x  5 

Rate  of  transport  of  internal  energy 
across  a  zone  boundary  in  the  other 
coordinate  direction 

NTPT 

55  x  5 

Sentinel  to  determine  the  proper  form 
of  the  transport  density 

YDB 

55 

Radial  position  coordinate  of  a  special 
point  S  on  the  line  segment  Joining 
two  adjacent  mesh  points 

YTERM 

55 

Difference  between  YDB  and  the  radial 
coordinate  of  one  of  the  two  mesh 
points  defining  the  line  segment  on 
which  S  lies 

Y2TERM 

55 

Difference  between  YDB  and  the  radial 
coordinate  of  the  other  mesh  point 
defining  the  line  segment  on  which 

S  lies 

TAI 

55 

The  point  S  divides  the  side  of  a 
zone  and  its  associated  area  into 
two  parts.  TAI  is  the  fraction  of 
this  area  residing  in  one  of  the  two 
parts  (I  =  1,2) 
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VARIABLE 

DIMENSION 

DEFINITION 

A 

55 

Table  of  signs  of  second  differences 
of  the  density  of  one  coordinate 
direction 

B 

55  x  4 

Table  of  signs  of  the  second  differ¬ 
ences  of  the  density  in  the  other 
coordinate  direction 

DIL 

55 

Volume  dilatation 

EPX 

55 

Principal  strain  along  the  azimuthal 
strain  axis 

EPY 

55 

One  of  the  three  principal  strains 

EPZ 

55 

One  of  the  three  principal  strains 

FMLYB 

55 

Radial  component  of  the  external 
force  applied  to  a  zone  on  the 

KMIN  boundary 

FMLZB 

55 

Axial  component  of  the  external 
force  applied  to  a  zone  on  the 

KMIN  boundary 

FMLYR 

101 

Radial  component  of  the  external 
force  applied  to  a  r;one  on  the 

JMAX  boundary 

FMLZR 

101 

Axial  component  of  the  external 
force  applied  to  a  zone  on  the 

JMAX  boundary 

FMLYT 

55 

Radial  component  of  the  external 
force  applied  to  a  zone  on  the 

KM AX  boundary 

FMLZT 

55 

Axial  component  of  the  external 
force  applied  to  a  zone  on  the 

KM  AX  boundary 

LYI 

55 

Radial  component  of  a  unit  vector 
along  the  principal  strain  axis  (I), 
(I  =  1,2) 

LZI 

55 

Axial  component  of  a  unit  vector 
along  the  principal  strain  axis  (I), 
(I  =  1,2) 
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VARIABLE 


DIMENSION 


DEFINITION 


RIH 

55 

Radial  component  of  position  for 

mesh  point  at  time  tn~?;  I(  1,4) 
dintinguishes  the  vertices  of  a 
single  zone 

ZIH 

55 

Axial  component  of  position  for 

mesh  point  at  time  tn_2j  I  (==  1,4) 
distinguishes  the  vertices  of  a 
single  zone 

AYQ 

55 

Radial  component  of  a  vector  area 
associated  with  a  zone  for  the 
calculation  of  the  artificial 
viscosity  of  the  zone 

AZQ 

55 

Axial  component  of  a  vector  area 
associated  with  the  zone  for  the 
calculation  of  the  artificial 
viscosity  of  the  zone 

TRAPV 

55 

Radial  component  of  the  mid  point 
of  the  side  of  a  zone  in  one 
coordinate  direction 

TRAPYH 

101 

Radial  component  of  the  mid  point 
of  the  side  of  a  zone  in  the  other 
coordinate  direction 

TRAPZH 

101 

Axial  component  in  the  mid  point 
of  the  side  of  a  zone  in  the  other 
coordinate  direction 

Y DELTA 

55 

Difference  between  radial  position 
coordinates  of  the  two  points  defining 
the  side  of  a  zone 

ALPHA 

100 

Working  storage,  value  of  particle 
velocity  normal  to  an  interface 

DF 

100 

Difference  between  the  normal  stresses 
at  the  two  sides  of  an  interface 

DIST 

2 

Distance  between  two  adjacent 
interface  points 

Z21 

2 

Negative  of  the  axial  component  of 
the  vector  joining  two  adjacent 
Interface  points 

Y21 

2 

Radial  component  of  the  vector  joining 
two  adjacent  interface  points 
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VARIABLE 
NY  12 

NZ12 

YA 

ZA 

YAN 

ZAN 

UNAY 

UNAZ 

UNORM 

YAZ 

ZAZ 

AIYT 

AIZT 


DIMENSION 

2 


2 


2 


2 


2 


2 


2 

2 

55  x  5 

55  x  5 

55  x  5 

4 

4 


DEFINITION 

Radial  component  of  a  unit  vector 
normal  to  a  vector  Joining  two 
adjacent  interface  points 

Axial  component  of  a  unit  vector 
normal  to  a  vector  Joining  two 
adjacent  interface  points 

Radial  position  coordinate  of  a 
special  point  on  the  line  segment 
Joining  two  adjacent  interface 
points,  at  the  start  of  a  time  step 

Axial  position  coordinate  of  a 
special  point  on  the  line  segment 
Joining  two  adjacent  interface 
points,  at  the  start  of  a  time  step 

Radial  position  coordinate  of  a 
special  point  on  the  line  segment 
Joining  two  adjacent  interface 
pointB,  at  the  end  of  a  time  step 

Axial  position  coordinate  of  a 
special  point  on  the  line-segment 
Joining  two  adjacent  interface 
points,  at  the  end  of  a  time  step 

Radial  component  of  velocity  at 
an  interface  point  averaged  over 
a  time  step 

Axial  component  of  velocity  at  an 
interface  point  averaged  over 
a  time  step 

Component  of  particule  velocity 
normal  to  the  interface  averaged 
over  a  time  step 

Radial  component  of  the  initial 
position  of  the  point  corresponding 
to  (YAN, ZAN) 

Axial  component  of  the  initial 
position  of  the  point  corresponding 
to  (YAN, ZAN) 

Radial  component  of  the  vector  area 
subtended  between  wedge  planes  by  the 
side  of  an  interface  triangle 

Axial  component  of  the  vector  area 
subtended  between  wedge  planes  by  the 
side  of  an  interface  triangle 
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VARIABLE 

DIMENSION 

DEFINITION 

PM  ASST 

4 

Mass  of  an  interface  triangle 

DILT 

4 

Volume  dilatation  in  an  interface 
triangle 

LYIT 

4 

Radial  component  of  a  unit  vector 
along  the  principal  strain  axis  (I), 
for  an  interface  triangle  (I  =  1,2) 

LZIT 

4 

Axial  component  of  a  unit  vector 
along  the  principal  strain  axis  (I), 
for  an  interface  triangle  (I  =  1,2) 

EPYT 

4 

One  of  three  principal  strains  in 
an  interface  triangle 

EPZT 

4 

One  of  three  principal  strains  in 
an  interface  triangle 

EPXT 

4 

Principal  strain  along  the  azimuthal 
strain  axis  in  an  interface  triangle 

PYT 

4 

One  of  the  three  principal  stresses 
in  an  interface  triangle 

PZT 

4 

One  of  the  three  principal  stresses 
In  an  interface  triangle 

PXT 

4 

Principal  streBB  along  the  azimuthal 
stress  axis  in  an  interface  triangle 

PUT 

4 

Element  of  the  stress  tensor  for  an 
interface  triangle 

P12T 

4 

Element  of  the  stress  tensor  for  an 
Interface  triangle 

P22T 

4 

Element  of  the  stress  tensor  for  an 
interface  triangle 

P11BT 

4 

Element  of  the  stress  tensor  for  an 
Interface  triangle,  averaged  over  a 
time  step 

P12BT 

4 

Element  of  the  stress  tensor  for  an 
interface  triangle,  averaged  over  a 
time  step 

P22BT 

4 

Element  of  the  stress  tensor  for  an 
interface  triangle,  averaged  over  a 
time  step 
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VARIABLE 


DIMENSION  DEFINITION 


PXBT 

4 

Element  of  the  stress  tensor  for  an 
interface  triangle 

ENT 

4 

Specific  internal  energy  in  an 
interface  triangle 

ART 

4 

Area  of  an  interface  triangle 

FIYT 

4 

Radial  component  of  force  associated 
with  vertex  point  (I),  for  an 
interface  triangle  (I  =  1,3) 

FIZT 

4 

Axial  component  of  force  associated 
with  vertex  point  (I),  for  an 
interface  triangle  (I  =  1,3) 

Q11T 

4 

Element  of  the  artificial  viscosity 
tensor  in  an  interface  triangle 

Q12T 

4 

Element  of  the  artificial  viscosity 
tensor  in  an  interface  triangle 

Q22T 

4 

Element  of  the  artificial  viscosity 
tensor  in  an  Interface  triangle 

QXT 

4 

Element  of  the  artificial  viscosity 
tensor  in  an  interface  triangle 

VOLM 

4 

Specific  volume  in  an  interface 
triangle  at  the  start  of  a  time  step 

VOLT 

4 

Specific  volume  in  an  interface 
triangle  at  the  end  of  a  time  step 

YB 

2 

Radial  position  coordinate  of  a  mesh 
point  which  lies  on  the  interface, 
averaged  over  a  time  step 

ZB 

2 

Axial  position  coordinate  of  a  mesh 
point  which  lies  on  the  interface, 
averaged  over  a  time  step 

YBU 

2 

Radial  position  coordinate  of  a  mesh 
point  which  lies  on  the  KINT+1  K-Line 
averaged  over  a  time  step 

ZBU 

2 

Axial  position  coordinate  of  a  mesh 
point  which  lies  on  the  KINT+1  K-Line 
averaged  over  a  time  step 
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VARIABLE 

DIMENSION 

DEFINITION 

YBD 

« i 

i 

2 

Radial  position  coordinate  of  a  mesh 
point  which  lies  on  the  KINT-1  K-Line, 
averaged  over  a  time  step 

ZBD 

2 

Axial  position  coordinate  of  a  mesh 
point  which  lies  on  the  KINT-1  K-Line, 
averaged  over  a  time  step 

PY 

55 

Radial  component  of  a  force  used  to 
compute  the  tangential  stress  at  an 
interface 

FZ 

55 

Axial  component  of  a  force  used  to 
compute  the  tangential  stress  at  an 
interface 

T21Y 

55 

Radial  component  of  the  unit  vector 
tangential  to  the  interface 

T21Z 

55 

Axial  component  of  the  unit  vector 
tangential  to  the  interface 

SUMIE 

Total  internal  energy  contained  within 
the  boundaries  of  a  system  at  an 
instant  of  time 

SUMKE 

Total  kinetic  energy  contained  within 
the  boundaries  of  a  system  at  an 
instant  of  time 

SUMTE 

Total  energy  contained  within  the 
boundaries  of  a  system  at  an  instant 
of  time 

\ 

Net  mass  transported  into  a  system  in 
a  time  step 

SMSTPT 

SMASSI 

Mass  of  a  system  at  the  start  of  a 
time  step  +  SMSTPT 

SMASS 

Total  mass  contained  within  the 
boundaries  of  a  system  at  an  instant 
of  time 

PIMPZ 

Total  axial  impulse  delivered  to  a 
system  in  a  time  step 

SMZTPT 

Total  axial  momentum  transported 
across  the  boundaries  of  a  system 

SMOMZI 

Initial  axial  momentum  +  FIMPZ 
+  SMZTPT 
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VARIABLE 

DIMENSION 

DEFINITION 

SNOMZ 

Total  axial  momentum  contained  within 
the  boundaries  of  the  system  at  an 
instant  of  time 

SFW 

Total  radial  component  of  force  acting 
on  the  azimuthal  plane  boundaries  of 
a  system  during  a  time  step 

PIMPY 

Total  radial  Impulse  delivered  to  a 
system  In  a  time  step 

SMYTPT 

Total  radial  momentum  transported 
across  the  boundaries  of  a  system 

SMOMYI 

Initial  radial  momentum  +  PIMPY  ♦  SMYTPT 

SMOMY 

Total  radial  momentum  contained 
within  the  boundaries  of  the  system 
at  an  instant  of  time 

SIETPT 

Total  internal  energy  transported 
into  a  system  across  Its  boundaries 

SKETPT 

Total  kinetic  energy  transported 
into  a  system  across  Its  boundaries 

USQ 

2 

Twice  the  kinetic  energy  per  unit 
mass  for  transport 

WORK 

Total  work  done  on  a  system 

SENERI 

Total  initial  energy  of  a  system 
+  SIETPT  +  SKETPT  +  WORK 

PTMASS 

55 

Working  storage  for  the  edit 
subroutine 

SI 

55 

Working  storage  for  input/output 
buffers 

S2 

101 

Working  storage  for  input/output 
buffers 

SI 

55 

Working  storage  for  input/output 
buffers,  (I  =  3,  35) 

TEM 

55 

Working  storage  for  the  stress 
subroutine 

KBOT 

(Available  Variable) 

KTOP 

(Available  Variable) 

VACANT 

15 

(Available  Variable) 
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PLOW  DIAGRAM 
FOR  AFTON  2A 
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REDCEN 
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NEDIT  -  1 
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Compute: 


SMSTPT 
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Computa: 

SUMKE 
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SMOMZ 


Computa: 

SKETPT 

SMYTPT 
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Computa: 

FIMPY 
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WORK 


Computa: 
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Initialise! 

SMOMY 

SMOMZ 

SMASS 


Initial  i  s*t 

FIMPY 
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SKITPT 

WORK 
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RETURN 
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Compute: 


Jth 


NR  1C  -  1 

•  0 
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CONSCKL 


Sat: 
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A3.  Amax 


Computa: 

PK 

Etw 


Computa: 
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Ccmputai 
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Compute: 


UT  =  3 
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REWIND  MT 
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PMOtRAM  A2AEMCI  INPUT.OUTPUT *T APE5- INPUT *T  APC4«0UTPUT*TAP£l*f  APES* 
1TAP£»*TAPE10) 

COMMON  NR  EG.  RDTNM*  MOTION*  JtfMIM*  JBMAX*  AOMIN* 

2  ABMAX*  TIME*  SMOMZI*  SMZTPT*  SMOMZ*  SMOMYl*  SMVTPT*  SHUNT* 

J  SEMEN 1 •  SlETPT •  SAfeTPT*  NONA*  SOMIE*  SOMAE*  SUMTt •  F1MPZ* 

4  F1MPY*  SMASSI*  SMSTPT*  SMASS*  PNOfMO*  OTNM*  CUTOFF*  N* 

5  AtOT*  ATOP*  MAXM*  TMAX*  OTNMN*  SFW*  0TNMP5*  0TNM2* 

4  AS*  CUT1*  CUT 2*  UYLB1N*  UYBIN*  UYNBIN*  UXLBIN*  UXWIN* 

7  UXRBIN*  UYLTIN*  UYTIN*  UYRTlN*  UXLTIN*  UXT1N*  UXRT1N*  ATM* 

•  JMIN*  JMAX*  AMIN*  AMAX*  JL*  J3*  UR*  JRM* 

9  AT*  EIN*  RHO IN*  UYIN*  UXIM*  AINTI5)* 

A  E  S « 5  > •  ALFA(S).  BIG  A<5).  BIG  tt(5).  RCP  V  S(5).k  ZERUO). 

2  TINY  A(5)«  TINY  Bf 5 » •  R  ZERO! 5 ) *BETA( 5 1  *  QCONI5)*  SAVI 12 ) • 

4  ASV(24) *  YTERMI55) •  Y2TERMI55 ) •  TA1(55)*  TA2155)* 

5  FMLYRI 101) »  FMLZRI 101 ) •  VACANT (15) 

COMMON  A( 55 ) •  OlL(55l*  EPX(55)» 

2  EPYI55 ) •  EPZC55) *  FMLYBI 55) •  FMLYTI55 ) •  FMLZB(55)» 

3  FMLZT ( 53 )  *  LY1(55) *  LY2(55)»  IZ1(55) •  LZ2I55)* 

4  PY ( 55 ) •  PZ( 55) •  R1H(55 ) •  R2H(55)»  R3H(55). 

5  R4H ( 55 ) *  Z1H( 55 ) *  Z2H(55)»  Z3H(55)*  Z4H(55)» 

6  U2 ( 55 *2  )  •  B( 55*4) 

COMMON 

A  RX(55«5)*  RY( 55*5 ) •  UNMX(55*5). 

1  UNMY ( 55*5 ) »  UNPXI 55*5 ) •  UNPY155.5).  FMASNM( 55  *5 ) • 

2  ENMI 55  *5 )  •  EN(55.5»*  PNM(S5*5)»  PN(55*5)» 

3  PONMXXf 55*5 ) •  P0NMXY(55*5 ) *  PQNMYY(55#5) •  PQNXX(55»5t* 

4  PQNXY ( 55*5 ) *  PQNYY(55*5l*  RWA3Z(55*5)»  RWA1Z(55*5)» 

5  RWAE3Z ( 55*5 ) •  RWAE1Z(55*5) *  RH3Z(55*5)»  RHIZ(55.5). 

6  E3Z (55*5)*  E1Z (55*5) •  RHO(55*5)»  V0L(55»5)» 

7  ETA ( 55  *5 )  •  A1Y(55*5)*  A2Y(55*5)»  A3YI55.5). 

8  A4Y ( 55*5 )  •  A1Z(55*5)*  A2Z(55*5)*  A3Z(55*5)» 

9  A4Z (55*5 )  *  F1Y(55*5) •  F2YC55.5).  F3Y(55*5)» 

A  F4Y ( 55*5 )  •  F1Z(55.5).  F2Z(55*5)»  F3Z(55.5)» 

1  F4Z (55*5  )  •  NTPT ( 55*5 ) •  FMSNZ(55*5)*  FMASN(55*5)» 

2  FMNMX( 55*5 ) »  FMNMY(55*5).  FMNX(55.5).  FMNY(55*5)» 

4  AMI (55*5  )  •  AW2 (55*5) *  CMASS1(55,5) »  CMASS2 ( 55 *5 ) t 

5  RXM(55*5 ) •  RYM( 55*5 ) •  RXZ<55*5)»  RYZ(55*5)» 

4  011(55*5)*  012(55*5)*  022(55*5)*  0X(55*5)» 

7  Pll (55  *5 )  •  P12 (55*5 ) »  P22(55*5)»  PX(55*5)» 

8  POX (55 *5 )  •  POMX( 55*5 ) •  VO(55*5) 

COMMON  ICON*  LINCT*  LXl*  LX2»  LX3*  LX4*  LX5* 

2  AC*  NDPA*  NEDIT*  NSIG*  NMASS*  NDMP 
COMMON  AZO( 55 ) *TRAPV( 55 ) *TRAPYH( 101 ) *TRAPZH( 101 ) • AYQ( 55 ) 

2*Y0ELTA(55) 

COMMON  Sl(55) *S2( 101) 

COMMON  GMU (55)*H(55)*BETAH(55)*ALFAH(55)* AMUBH (55)* AMUBMU (55)* 

2  1CASE ( 55  ) 

CHANGES 

4  34H  REASON-ACTIVITY  CHECA  ON  PRESSURE/) 

4  34H  REASON-TAPE  VERSION  FOR  4400  /) 

4  34H  REASON-NEW  0  DEFINITION  AND  TRANS/) 


NOTE 

STRAIN  IS  COUNTER  CLOCA  WISE. FORCE  CLOCA  WISE 
IN  STRAIN  AAB  IS  1*/AAB 
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MN0UT1NC  ACT  1  VC 
COMMON  UNCO* 

2  KM  AX*  TIME*  SMOMZl 
9  SC MCA 1 •  SIETPT*  SKETPT 
A  FINNY*  SNA SSI*  SMSTPT 
9  KiOT*  KTOP*  MAXN* 

A  KB*  CUTl*  CUT2* 

7  UXRBIN*  UYLTIN*  UYTIN* 
•  JNIN*  JR AX*  KMIN* 

9  KT*  EIN* 

A  E  SIS) •  ALFAI5)* 

2  TINY  AI9I*  TINY  BIS) • 

4  KSVI24) *  YTERM155) 

5  FMLYRI 101 )  •  FMlZRdOl 
COMMON 

2  EPY IS9 ) »  EP2ISS) • 

3  FML1TI5S).  LY1I55). 

4  PYIS5) •  PZISS)* 

9  R4H1S9 ) •  Z1HISS)* 

4  U2 1 99*2) •  6(99*4) 

COMMON 


ROTNM*  MOTION* 

•  SMZTPT*  SMOMZ* 

•  WORK*  SONIC* 

•  SN ASS.  PROBNO* 
TMAX*  OTNMN* 
UYLBIN*  UYttIN* 
UYRTIN*  UXLTIN* 
KNAX*  JL* 

RHOIN*  UYIN* 
BIG  A(9 ) •  BIG  BIS 
R  ZEROI9) *BETAIS) 

•  Y2TERMI99 ) • 

)*  VACANT  1 19) 

At  99  > • 
FMLYBISS) • 
LY21 99 )  • 
R1HIS9)* 
Z2HI99)* 


JBMIN*  JBMAX*  KBMIN* 
SMOMYl*  SMYTPT*  BMOMY* 
SOMKE*  SUMTE*  FIMPZ* 
DTNM*  CUTOFF*  N* 

SFW*  OTNMP5.  DTNM2* 
UYRBIN*  UXLvlN*  UX»IN* 
UXT IN*  UXRTIN*  KTN* 

J3*  JR*  JRH* 
UXlN*  KINTI9)* 

)•  RCP  V  SIS) *E  ZERO(S) • 
*  QCONI S ) •  SAVI12)* 
TAK99)  •  TA2ISS)  • 


DILI SS ) • 
FMLYTI55) • 
LZ1I99) • 
R2HI 99 ) • 
Z3HI99) • 


EPXISS) • 
FMLZBISS ) • 
LZ2ISS) •  ‘ 
R3H ( SS ) • 
Z4HISS ) • 


A 

1  UNMYISS *S )  • 

2  ENMIS9*S )  • 

3  PONMXXI  9S*S  )  • 

4  PQNXYI5S.5/. 

5  RWAE3Z(55*5 ) * 
4  E3ZI99*S)» 

7  ETAISS*9 ft 
4  A4YI35.3). 

9  A4Z I SS *9 ) • 

A  FAY  199*9) * 

1  FAZ 1 99*9 ) • 

2  FMNMXI 99*9 ) • 

4  AW1 (99*9  )  • 

5  RXMI 99*9 ) • 

4  011199*9)* 

7  Pll  199*5 ) • 

•  POX  1 59 *5 ) • 

COMMON  ICON* 
2  KC*  NOP A* 


RXISS*S)  • 

UNPXI SS*S )  • 

EN 1 99*5 ) * 

PQNMXY I SS  *9  ) » 
PONYY I SS *5 )  • 
RWAE1ZI 95  *5  )  • 
E1Z(55»5) • 
A1Y|SS*S) • 
A1ZISS*S). 
F1YISS.S )  • 
FIZI55.5). 
NTPTI55.5). 
FNNNYI5S.5). 

AW2 1 59*5 )  • 
RYNlSStS) * 
012155*5) • 
P12ISS.S)* 
P0MX(5S»S )  • 
LINCT*  LXl 
NEDIT*  NSIG* 


RYlSSvS) • 
UNPYISS*S)  • 
PNH(55*5). 
PONNYY 1 59*5 ) • 
RWA3Z(SS»S ) • 
RH3Z( 59*9) • 
RHOI55.5). 
A2YI5S  *9) • 
A2ZISS  *9) * 
F2YIS5.5)* 
F2Z(SS*S) * 

FNSNZ 1 99*9 ) • 
FMNXI 55*5) * 

CM ASS 1 ( 55*5 ) • 
RXZ(55  *5) • 
022(55*5)* 
P22(55»5) > 

V0( 55  *5 ) 

LX2*  LX3  * 
NMASS*  NOMP 


UNMX(55*9) • 
FMASNM(55*5 ) • 

PN( 55  *5 ) • 
PONXX(55*5 )  » 
RWA1Z 1 55  *5 )  • 

RH1Z 1 55 *5 )  • 

VOL (55 *5)  • 

A3Y ( 55*5 ) * 

A3Z( 55*5 )  • 

F3Y (55*5)* 
F3Z(55*5) » 

FHASNI 55*5)* 

FMNY ( 55*5 ) • 
CMASS2(55*5 )  • 

RYZ (55*5)* 
0X155*5) • 
PX(55*5) * 

LXA*  LX5. 


IF(KC*EO*KMAX)GO  TO  20 


L«LX1 

L2«LX2 

00  4  JbJMIN* JMAX 
RWAlZ(J*L2)-0* 

A  RWAE1Z1 J*L2)*0* 

5  00  10  J«JMIN*JMAX 

RWA3Z ( J*L ) *0* 

RWAE3Z ( J*L ) *0* 
UNPX(J*L)>UNMX(J*L) 

UNP Y ( J • L ) SUNM Y ( J  »  L ) 
FHASNI J*L)«FMASNN( J*L) 
EN( J*L)>ENM(J*L) 

PN( J*L)-PNM(J*L) 

PONXX ( J • L ) "PONHXX ( J  *  L ) 
PONXV ( J • L ) «PONMXY I J  *  L ) 
PONY Y ( J • L ) bPQNMYY ( J  *  L ) 
POX  I J  *  L ) bPQHX I J*L ) 

F3Y ( J*L ) *0* 


> 
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TIME* 
SlETPT* 
SMASSI* 
ATOP* 

CUT1* 
UYLTIN* 
JMAX* 

EIN* 

ALFA! 5) • 


SUBROUTINE  AFTON 
COMMON 
2  ASM AX* 

SEMEN  I  • 

F IMPY* 

ABOT. 

AB* 

UXRBIN* 

JMIN. 

AT* 

E  S  ( 5 )  • 

TINY  A(5). 

ASV ( 24 ) * 
FMLYR(lOl)* 
COMMON 
2  £PY(55)  • 

FMLZT ( 55 )  • 
PY(55)* 

RAH (55) * 

U2 ( 55*2 ) • 

COMMON 
A 

UMMY(55*5) • 
ENM(55*5) • 
PONMXXI  55*5 )  * 
PONXY(55*5) • 
RWAE3Z ( 55*5 ) • 
E32(55*5)* 
ETA(55*5)  • 

A4Y (55*5 ) • 

A4Z ( 55*5 ) • 

FAY (55*5) • 

F4Z (55*5)* 
FMMMXt  55*5 )  • 

AW1 (55*5) • 
RXM(55*5 )  • 
011(55*5)* 

Pll ( 55*5 )  • 

POX (55 *5)  • 
COMMON  ICON* 

2  AC*  NDPA* 


MPEG* 
SM0MZ1  • 
SAETPT* 
SMStPT • 
MAXN* 
CUT2* 
UYTIN* 
AMIN* 


NOTNM* 
SMZTPT* 
NONA* 
SMASS* 
TMAX* 
UYLBIN* 
UYRTlN* 
AM  AX* 
RH01N* 

BIG  A(5 ) • 


TINY  B( 5 )  *  R 
YTERMI55)  • 
FMLZR ( 101 )  • 

EPZ ( 55 ) » 

LY1 ( 55 ) * 

PZ(  55 )  • 

Z1H( 55 )  * 

B( 55  *4) 


ZERO(5)*BETA(5) 
Y2TERM ( 55  )  » 
VACANT! 15) 

A  ( 5  5 1  • 

FMLYBt  55 )  * 
LY2(55 )  • 
R1H(55)» 
Z2HI55 )  * 


NOTION*  JBMIN*  JBMAX*  AOMIN* 
SMOMZ*  SMOMYl  •  SMYTPT*  SMOMY* 
SUMIE*  SUMAE*  SUMTE*  FJMPZ* 
PROBMO*  PTNM*  .  CUTOFF*  N* 

OTNMN*  SFW*  0TNMP5*  0TNM2* 
UY8IN.  UYRBIN*  UXLttlN*  UXttIN. 
UXLTIN*  'JXTIN*  UXRTIN*  ATM* 

JL*  J3*  JR*  JRM* 
UYIN*  UXIN*  AlNT ( 5  )  • 

BIG  B ( 5 ) »  RCP  V  S(5 ) *E  ZER0(5)» 
•  OCON ( 5 ) •  SAV( 12 )  • 

TA1 ( 55) »  TA2(55)  • 


OIL ( 55) • 
FMLYT(55) * 
LZ1(55)» 
R2H( 55) • 
Z3H( 55) • 


EPX( 35 )  • 
FMLZB ( 55  )  • 
LZ2155 )  • 
R3H( 55 )  * 
Z4H( 55 )  • 


RX ( 55*5 ) • 

UNPX( 55*5 ) » 

EN( 55*5 ) • 

PONMXY (55*5)* 
PQNYY (55*5)* 
RWAE1Z (55*5) • 
E1Z ( 55*5 ) • 

A1Y ( 55*5 ) • 

A1Z( 55*5 ) • 

F1Y( 55*5 ) • 

F1Z ( 55  *5 ) • 

NTPT (55*5)* 
FMNMY ( 55*5 ) • 
AW2(55.5) • 
RYM(55*5) • 
012(55*5) • 
P12(55*5) • 
PQMX(55*5) * 

LINCT*  LX1. 

NEDIT*  NSIG* 


RY( 55 *5 )  • 
UNPY(55*5)  * 
PNM( 55*5 )  • 
P0NMYY(55*5)  • 
RWA3Z (55*5)* 
RH3Z( 55*5 )  • 
RHO(55  *5 ) • 

A2Y (55*5)* 
A2Z(55*5 ) • 
F2Y(55*5 ) * 

F2Z (55 *5 )  • 
FMSNZ (55*5)* 
FMNX( 55 *5 )  • 
CMASS1 ( 55*5)* 
RXZ(55*5 )  • 
022(55.5). 
P?2(55*5)  • 

V0( 35 *5 ) 

LX2* 

NMASS* 


UNMX(55*5) • 
FMASNM(55*5 ) * 
PN( 55*5) * 
PONXX(55  *  5 ) * 
RWA1Z(55*5)» 
RH1Z ( 55*5 ) • 
VOL  I  55*5 )  • 

A3Y ( 55*5 )  • 
A3Z( 55*5 )  • 

F3Y ( 55*5 )  » 

F3Z (55*5)* 
FMASN( 55  *5 ) • 
FMNY ( 55*5 ) » 
CMASS2(55*5 ) * 
RYZ (55*5) • 

0X( 55  *5 ) • 

PX( 55  *3 ) * 


LX4* 


LX5* 


LX3* 

NDMP 

AZQ( 55 ) *TRAPV(55 ) *TRAPYH( 101 ) *TRAPZH( 101 ) »AYQ( 55 ) 


COMMON 
2  *YDELTA( 55 ) 

COMMON  Sl(55) *S2( 101) 

COMMON  GMJ(55) *H(55)»BETAH(53) *ALFAH(55) 
2  ICASE ( 55 ) 


•AMUBH( 55 ) *AMUBMU( 55 ) • 


NDMP*0 

REWIND 

REWIND 

REWIND 

REWIND 


9 

10 
1 
3 


10 


20 


30 


31 


READ (5.1) ICON 

IF ( 1CON*EO«0 )  GO  TO  20 

CALL  RSTART 

NSIG*1 

GO  TO  32 

CALL  REDGEN 

GO  TO  ( 30*4) *NMASS 

NSIG-1 

TIME-TIME+DTNM 
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32 


MN+1 
SAVI 9)*0« 

SAVCIOI-O* 

NDPA-O 
NEDI T*0 

C - TEST  FOR  END  OF  PROBLEM 

33  IF ( N«GE*MAXN)  60  TO  S3 
IFITIME.GE.TMAX)  60  TO  63 

C - -TEST  FOR  FORCE  OFF 

1FISENSE  SWITCH  1)65*40 

C - TEST  FOR  FORCE  TO  NEXT  PROBLEM 

40  1F( SENSE  SWITCH  2  )  86*30 
C - TEST  FOR  EDIT 

30  IFI KSVI4) •GT«0 )  60  TO  90 

IF! KSV(  5 ) «6T *0)  GO  TO  93 

31  1F(SAV( 1 ) *GT*0)  60  TO  100 

C - TEST  FOR  OUMP 

32  1F(KSV(8)«GT»0)  60  TO  103 

33  IF(SAV(3)*GT*0)  GO  TO  110 

C - FOR  GENERAL  COORDINATE  SYSTEM 

33  IF  ( M0TI0N*EQ*2 )  60  TO  56 

CALL  FLOW 
60  TO  57 

56  CALL  FLOW  L 

57  CONTINUE 

C - TO  CHAN6E  OT 

KSV(14)«KSV(16) 

XSV ( 15 )*KSV( 19) 

KSVU6I-KSVI20) 

XSVC 17)*KSV( 21 ) 

SAV(7)*SAV(9) 

SAviei-SAvaoi 

IF (  SAVI 9 ) *GT *SAV( 10)1  60  TO  60 
IF C  SAVI 10) *E0«0)  GO  TO  62 
DTNMN*1«/I4«*SQRTISAV<10) )  I 
60  TO  61 

60  DTNMN«l«/(4.*S0RTISAV|9m 

61  STEPMAX*1«05»DTNM 
IF  I DTNMN.GT*STEPMAX > DTNMN-STEPMAX 
DTNM«DTNMN 

DTNMP5«.5*DTNM 

DTNM2*2«*DTNM 

CUT1«DTNM*CUT0FF 

CUT2«DTNM2»CUT0FF 

RDTNM«1«/0TNM 

62  GO  TO  1 31 • 1 15 *4 *4 )* NS  I G 
65  NSI6-3 

IF ( KSVi 2 ) «EQ*0)  GO  TO  75 
70  NDPA«1 

75  1FIKSVI 1)»E0*0)  GO  TO  60 

76  NEDIT-1 
GO  TO  55 

80  NEDIT«-1 
GO  TO  55 

65  NSIG>2 
GO  TO  70 

66  NSIG*3 
GO  TO  70 

90  KSVC4)>KSVI4)-1 
GO  TO  102 

95  IF(N«LT*KSV(6) I  GO  TO  51 
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fc$VU)*KSV<ft|^KSV(St 
60  TO  101 

100  1 F  € (TIMC+«5*DTNM) •LT«SAV(2I )60  TO 
SAW ( 2 ) • SAV I 2 ) 4SA V !  1 ) 

101  K$VU)«ICSV<7)-1 

102  NEDIT-1 
GO  TO  52 

105  IF! N«LT »KSV!9 ) )  60  TO  53 
RSV  ( 9 )  *  KSV  ! 9 )  ♦KSV  I • ) 

60  TO  111 

110  I F ( t T1ME+«5*DTNM) •LT*SAV(4) )  60  TO 
SAV!4)»SAV!4)+SAV!3) 

111  NDPA  *1 
GO  TO  55 

115  END  FILE  10 
REWIND  10 
STOP 

1  FORMAT!  16) 

2  FORMAT! 1H0#E 16. 7/1 
END 


52 


55 
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SOM  OUT  I NE  S  00*10 

COMMON  NNEG*  RDTNN*  NOTION*  JBMIN*  JSMAI*  K0NIN* 

2  KBMAX*  TIME*  SNOMZI*  SMZTPT*  SNOMZ*  SMOMYI*  SMVTPT*  SNOMY* 

3  SENERI •  SIETPT*  SKETPT*  WORK*  SOMIE*  SOME*  SUMTE*  FIMPZ* 

4  FIHPY*  SMASSI*  SMSTPT*  SMASS*  PROBNO*  OTNM*  CUTOFF*  N* 

5  KBOT.  ATOP*  HAXN»  TMAX*  DTNMN*  SFW*  DTNMP5*  DTNMZ* 

6  KB*  CUT  1  *  CUT2*  UYLBIN*  UYBIN*  UYRBIN*  UXLBIN.  UXB1N* 

7  UXRGIN*  UYLTIN*  UYTIN*  UYRTIN*  UXLTIM*  UXTIN*  UXRT1N*  KTM* 

8  JHIN*  JMAX*  KH1N*  KMAX*  JL*  J3.  JR*  JRM* 

9  KT*  EINt  RHOIN*  UYIN*  UX1N*  K1NTI5I* 

A  E  $(5).  ALFA( 5 )  •  BIG  A(5)*  BIG  B(5)*  RCP  V  $(5).E  ZER0(5) 
2  TINY  A( 5 ) *  TINY  B<  5 )  •  R  ZER0(5) »BETA(5) •  QC0N(5)*  SAV(12)* 

4  KSV ( 24) •  YTERM(55) •  Y2TERM( 55 )  •  TA1(55»*  TA2C55I* 

5  FHLYR  ( 101 )  •  FMLZRUOU*  VACANT  ( 15  ) 

COMMON  A( 55 )  »  DIL(55)*  EPXI55)* 

2  EPYC55).  EPZ(55) »  FMLYB( 55 ) *  FMLYT ( 55)  •  FMLZB(55 ) • 

3  FMLZTI55).  LY1 '  55 )  *  LY2(55>*  LZ1(55)*  LZ2C55I* 

4  PY ( 55 )  *  PZ( 55 )  •  R1H(55)»  R2H(55)»  R3H(55). 

5  RAH ( 55 ) *  Z1H ( 55 )  *  Z2H(55)*  Z3HI55)*  Z4HI55)* 

6  02(55*2)*  B( 55 *4) 

COMMON 


A 

RX ( 55  *5 ) • 

RY( 55  *5  )  • 

UNMX (55*5)* 

1 

UNMY ( 55*5 ) * 

UNPX( 55*5 ) • 

UNPY (55*5) • 

FMASNM( 55*5 ) • 

2 

ENM(55»5) • 

EN( 55*5 ) • 

PNMI55  *5) • 

PN(55*5) • 

3 

PQNMXXI55 .5 ) • 

PQNMXY (55*5)* 

PONMYY (55*5 ) • 

PONXX (55*5)* 

4 

PQNXY (55*5)* 

PONYY (55*5 ) • 

RWA3Z (55*5)* 

RWA1Z (55*5) • 

5 

RWAE3Z<55*5). 

RWAE1Z (55*51* 

RH3Z( 55*5 ) • 

RH1Z (55*5)* 

6 

E3Z (55*5) • 

E1Z ( 55  *5 ) * 

RHO( 55  *5 ) * 

VOL (55 *5) • 

7 

ETA(55*5) * 

A1Y  ( 55  *5 )  • 

A2Y (55*5)* 

A3Y(55*5)» 

8 

A4Y (55*5) • 

A1Z (55*5) • 

A2Z( 55  *5 ) • 

A3Z( 55*5 ) • 

9 

A4Z(55*5) • 

F1Y ( 55  *5 ) • 

F2Y(55*5) • 

F3Y(55*5 ) » 

A 

FAY ( 55*5 ) • 

F1Z ( 55  *5 ) • 

F2Z (55*5)* 

F3Z(55*5 ) • 

1 

FAZ ( 55*5 ) » 

NTPT (55*5 ) • 

FMSNZ ( 55*5  )  • 

FMASN (55 *5 ) • 

2 

FMNMX(55*5 ) • 

FMNMY ( 55*5 ) • 

FMNX(55*5) * 

FMNY(55*5) * 

4 

AW1 ( 55*5 ) * 

AW 2 (55*5) * 

CMASS1 ( 55*5 ) • 

CMASS2(55*5 ) • 

5 

RXM( 55*5 ) •  ' 

RYM( 55*5) • 

RXZ (55*5)* 

RYZ ( 55  *5 ) » 

6 

011(55*5)* 

012(55*5) • 

022(55*5)* 

0X( 55  *5 ) • 

7 

Pll ( 55*5 ) * 

P12 (55*5)* 

P22(55*5)* 

PX( 55 *5 )  • 

8 

POX (55*5)* 

PQMX ( 55*5 ) • 

V0( 55  *5 ) 

COMMON  ICON* 

L1NCT*  LXl * 

LX2*  LX3 

»  LX4*  LX5 

2 

KC*  NOP A* 

NEOIT*  NSIG 

•  NMASS*  NDMP 

COMMON  AZO( 55 ) *TRAPV( 55) *TRAPYH( 101 ) *TRAPZH( 101 ) »AYQ(55 ) 

2  *YDELTA(55 ) 

COMMON  Sl( 55 ) *S2( 101 ) 

COMMON  GMU ( 5 5 ) *H ( 55 ) • BET AH ( 55 ) * ALF AH ( 55 1 • AMUBH ( 55 ) » AMUBMO ( 55 ) • 
2  ICASE (55 ) 

C**M* 

IF( KC*GT*1 )  GO  TO  50 
10  J-JMIN 

15  CALL  HORTPT 

WX-UXLBIN 
WY-UYLBIN 
RH1Z ( J* 1 )aRHOlN 
E1Z(  J*1)«EIN 

TRAP>«5«(RX(J*l)-fRX(J^l»in 
AX«RY( J+1*1)-RY( J.l) 

AY«RX( J»1)-RX( J+l.l) 

RWA 1 Z ( J  *  1 ) "RH1Z ( J • 1 ) *TRAP* ( WX*AX*WY*AY ) 

RWAE1Z(J*1I«RWA1Z( J.1)*E1Z( J.l) 

FMASN ( J • 1 ) *FMASNM ( J  •  l )  ♦  (  RWA3Z ( J • 1 ) -RWA3Z ( J+l » 1 ) -RWA 1Z ( J  *  1 )  + 

2  RWA1Z( J.2 ) )*DTNM 
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14 


If  (fHASftf  ^*1 , t 14*16*1? 

NEOIW 

nsia»4 

tfftlTE(6*200) J*FMA$N( J*l) 

17  60  T0( 22*20*21) *M0TI0M 

20  FMASN ( J  *  1 )  bFMASNM ( J • 1 ) 

21  RXl J*1 )«RXM( J*1)+UNMX( J*1)*DTNM 
RY ( J *  1 1 *RYH ( J • 1 ) ♦UNMY ( J • 1 ) *DTNM 

22  JL-J+1 

DO  40  J" JL* JR 

GO  TO  (24*27*24) .MOTION 

24  WX*UXBIN 
WY-UYBIN 

RH12 ( J* 1 ) *RHOIN 
E1Z(J*1)*EIN 

TRAP«*5*( RX ( J* 1 )+RX ( J+l» 1 ) ) 

AX*RY( J+1*1)-RY(J*1> 

AY**RX  ( J  » 1 ) -RX ( J+l *  1 ) 

RWA 12 ( J • 1 ) «RH 12 ( J • 1 ) *TRAP* ( WX*AX+WY*AY ) 

RWAE12( J*1 )*RWA12( J*1)#E12( J*l) 

FMASN  ( J  •  1 )  *FMASNM  ( J  •  1 )  +  ( RWA  3Z  ( J  •  1 )  -RWA32  ( J+ 1  •  1 )  -RWA1Z  ( J  *  1 )  + 
2  RWA12 ( J  *2 ) )*0TNM 

IF ( FMASN (J*l) ) 25 *25 *26 

25  NEDl T*1 
NSI6«4 

WRI TE( 4*200 ) J*FMASN( J*l) 

26  60  TO  ( 40*27*28 ) (MOTION 

27  FMASN( J*1)«FMASNM( J*l) 

2fc  RX ( J* 1 ) bRXM ( J* 1 )+UNMX( J* 1 )*DTNM 

RY ( J . 1 1 *RYM ( J . 1 ) ♦UNMY ( J . 1 1 *DTNM 
40  CONTINUE 
J»JMAX 

60  TO  (42*41*41) .MOTION 

41  RX(J*1)"RXM(J*1 J+UNMX ( J* 1 ) *DTNM 
RY ( J  » 1 ) «R YM ( J  *  1 ) +UNMY ( J* 1 ) *DTNM 

42  CALL  STRESS 
J-JMIN 

UNPX ( J* 1 ) *UXLBIN 
UNPY ( J* 1 ) *UYLBIN 

CMASS1 ( J* 1 ) *AWl ( J  *  1 ) *YTERM ( J )*RHO( J* 1 ) 

CMASS2 ( J • 1 ) *AW2 ( J • 1 ) *Y2TERM ( J ) *RHO ( J  *  1 ) 

FMSNZ ( J* 1 )**5*CMASS2 ( J • X ) 

FMNX(J*1)«0* 

FMNY ( J* 1 ) *FMSN2( J*1 ) *  ( UNMY ( J. 1 ) +UNPY ( J . 1 ) ) 

JLbJ*1 

00  45  J«JL* JR 
UNPX ( J* 1 ) "UXBIN 
UNPY ( J* 1 ) *UYBIN 

CMASS1 ( J* 1 ) *AWl ( J • 1 ) *YTERM( 1 ) *RHO( J. 1 ) 

CMASS2 ( J  *  1 ) *AW 2 ( J • 1 ) *Y2TtRM ( 1 ) •RHO i J  *  1 ) 

■  FMSNZ ( J. 1 ) ■ *5* ( CM ASS 1 ( J-l *  1 ) ♦CMASS2 ( J*1 ) ) 

FMNX  (  J  •  1 1  =FMSN2  (  J  1 1 )  » ( UNMXW*  1 ) +UNPX1  J*  1 ) ) 

45  FMNY  ( J  *  1 )  bFMSNZ  ( J  *  1 )  *(UNMY(  J.l  >+U,NPY(  J*l» ) 

J*JMAX'  '• 

UNPX ( J* 1 ) *0*0 

UNPY(J*1)-UYRBIN 

FMSNZ ( J* 1 ) b*5*CMASS1 ( J-l *  1 ) 

FMNX( J*1 ) *0* 

FMNY ( J  » 1 ) "FMSNZ ( J • 1 )  *(UNMY( J.l )+UNPY( J*1 ) ) 

46  CALL  CONSCK 
RETURN 
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50  L*LX  1 
L2*LX2 
L5*LX5 

00  500  J-JMINfJMAX 
RHO ( J*L2 ) *0*0 
PN  ( Jf L2 ) *0*0 
FHASN( J»L2)«0.0 
ETA( J*L2)*0.0 
EN  ( J »L2 ) ■0*0 
RH3Z  ( J»L2 ) *0*0 
RWA32C J.L2»*0*0 
E3Z  (J*L2)*0.0 

500  RWAE3Z ( J*L2 ) *0*0 

501  CALL  HORTPT 

00  502  J* JMINf JR 

WX*UNMX ( J»L2 )+UNMX ( J+l f L2 ) 

WY*UNMY< JfL2)+UNMY< J+ltL2) 

RH1Z ( J*L2 ) *RHO( J#L ) 

E1Z ( J»L2 ) *ENM( J  f L ) 

TRApa#25*(RX( J»L2 ) +RX ( J+l t L2 ) ) 

AX»RY(J+1*L2 )“RY ( J  *L2 ) 

AY-RX( J.L2)-RX( J+1.L2) 

RWA1Z  (  Jt L2  )  *RH1Z( Jf L2 )*TRAP*I WX*AX+WY*AY  ) 

5  02  RWAE 1Z ( Jt L2  )  *RWA1Z ( Jt L2 ) *E1Z ( J  t L2 ) 

CALL  MASS 

504  CALL  STRESS 
CALL  NEWU 
CALL  CONSCK 
J-JMIN 
XC-KMAX 

505  UNPX (JfL2)*UXLTIN 
UNPY ( Jf L2 ) *UYLTIN 

FMSNZ ( J f  L2 I  * • 5*CMASS2 ( J  f  L ) 

FMNX( Jf L2)*0#0 

FMNY (  J  t  L2  ) »FMSNZ ( J  t  L2 )  *( UNMY C Jf L2 )+UNPY ( J.L2 I > 

51  JL* J+l 

00  60  J* JL f  JR 
56  UNPX ( J  f L2 ) *UXT IN 

UNPY ( J  f L2 ) «UYT IN 

FMSNZ ( Jf L2 ) **5* ( CMASS1 ( J-l f L ) +CMASS2 ( J»L ) ) 

60  FMNX ( Jf L2 ) *FMSNZ ( Jf L2 )  * ( UNMX ( Jf L2 >+UNPX ( J f L2 ) ) 

FMNY ( Jf L2 )*FMSNZ( Jf L2 }  * ( UNMY < Jf L2 J+UNPY C Jf L2 > ) 

80  CONTINUE 
90  J>JMAX 

UNPX( JfL2)*0. 

UNPY ( Jf L2 ) *UYRTIN 

FMSNZ ( Jf L2 ) «.5*CMASS1 ( J-lfL ) 

FMNX ( J  f L2 ) *0*0 

FMNY ( J f  L2 ) "FMSNZ ( J  f  L2 )  * ( UNMY  i Jf L2 )+UNPY ( Jf L2 ) ) 

CALL  CONSCX 
100  RETURN 

200  FORMAT ( 7HOFOR  J*fl6f8H  ANO  K+2flOH  THE  MASS*fE17.9f9H  IN  ERROR) 
END 


SUBROUTINE  CONSCK 

COMMON  NREG*  ROTNMt  MOTION*  JBMIN*  JBMAX*  KBM1N* 

2  KBMAX*  TIME*  SMOMZl*  SMZTPT*  SMOMZ*  SMOMYl*  S“YTPT*  SMOMY. 

3  SENERI •  SIETPT.  SKETPT *  WORK*  SUMIE*  SUMKE*  SJMTE*  FIMPZ* 

4  FIMPY*  SMASSI*  SMSTPT*  SHASS*  PROBNO*  DTNM*  CUTOFF*  N* 

3  KBOT •  KTOP*  MAXN*  TMAX*  DTNMN*  SFW*  DTNMP3 •  DTNM2* 

6  KB*  CUT  1  •  CUT 2*  UYLBlN*  UYBIN*  UYRBIN*  UXLblN*  UXttIN* 

7  UXRBIN*  UYLTIN*  UYTIN*  UYRTIN.  UXLTIN*  UXTIN.  UXRTIN*  KTM* 

8  JMIN*  UMAX*  KMIN*  KMAX*  JL*  J3.  JR*  JRM* 

9  KT*  E IN*  RHO IN*  UYIN*  UXIN*  K1NT<3)* 

A  E  S ( 3 ) »  ALFA! 3 ) •  BIG  A(5).  BIG  BC 3 » •  RCP  V  S(5)*E  ZERO(5>. 
2  TINY  A(  5 )  »  TINY  B(5)»  R  ZER015) *BETA(3) •  QCON(S)*  SAV( 12 ) • 

4  KSV( 24) *  YTERH( 55 ) *  Y2TERM ( 55  )  •  TA1(55) •  TA2C55)* 

5  FMLYR(lOl)*  FMLZR(lOl)*  VACANT(15) 

COMMON  A( 55 ) *  DlL(55).  EPX(35)» 

2  EPY155)*  EPZ ( 55 ) *  FMLYB( 55  )  •  FMLYT ( 55 ) *  FMLZB(55). 

3  FMLZT ( 55 ) •  LY1 ( 55 )  *  LY2(55)*  LZ1(55) »  LZ2(55). 

4  PY ( 55 ) •  PZ  C  55 ) •  R1H(55),  R2H(55)»  R3H(55I* 

5  R4H ( 55 ) *  Z1H ( 55 ) *  Z2H(55).  Z3H(55)»  Z4H(55>* 

6  U2 ( 55 *2 ) •  B ( 55 *4 ) 

COMMON 

A  RX ( 55  *5 ) •  RY ( 55  *5  >  *  UNMX(55*5)* 

1  UNMY( 55*5 ) ?  UNPX( 55*5 ) •  UNPY(55*5)*  FMASNM( 55*5  )  * 

2  ENM(55»5 1  *  EN(55*5)»  PNM<55*5).  PN(55*5). 

3  PQNMXXI 55*5 ) »  PONMXY  <  55*5 ) *  PONMYY (55*5)*  PONXX(55*5)» 

4  PONXY(55*5 ) *  PQNYY (55*5)*  RWA3Z(55*5)»  RWA1Z(55.5). 

5  RWAE3Z (55*5)*  RWAE1Z ( 55 *5 ) .  RH3Z(55*5)»  RH1Z(55*5)» 

6  E3Z (55*5 ) •  EIZ(55*5) •  RHO(55.5>*  VOl(55*5). 

7  ETA(55*5) •  A1Y(55*5).  A2Y(55*5)»  A3Y(55*5). 

8  A4Y (55*5)*  A1Z(55*5).  A2Z(55*5)>  A3Z(55*5). 

9  A4Z ( 55 *5 ) »  F1Y ( 55 *5 ) •  F2Y(55*5).  F3YI55*5)* 

A  F4Y (55*5)*  F1Z(55,5).  F2Z(55*5).  F3Z(55*5). 

1  F4Z (55*5 ) *  NTPT ( 55*5 ) *  FMSNZ(55»5)*  FMASN(55*5). 

2  FMNMX(55*5 ) •  FMNMY155.5).  FMNX(55*5)*  FMNY(55*5)* 

4  AWI (55*5 ) •  AW2( 55*5 ) •  CMASS1(55*5) .  CMASS2C 55.5  )  * 

5  RXM(55*5 ) »  RYM(55*5)»  RXZ(55*5)»  RYZ(55*5)» 

6  011(55*5)*  012(55*5)*  022(55*5)*  0X155*5)* 

7  Pll (55*5 ) •  P12 (55*5)*  P22( 55*5).  PX(55*5)» 

8  POX (55*5) •  PQMX(55*5 ) •  VO(55.5) 

COMMON  ICON*  LINCT*  LXl*  LX2  *  LX3 »  LX4*  LX5 » 

2  KC*  NOPA*  NEOIT*  NSIG*  NMASS*  NOMP 
COMMON  AZO( 55 ) »TRAPV ( 55 ) *TRAPYH( 101 ) *TRAPZH(  101 ) • AYO( 55 ) 

2  »YDELTA(55 ) 

COMMON  Sl<  55 ) *S2 ( 101 ) 

COMMON  GMU( 55 ) *H( 55 ) *BET AH ( 55 ) . ALFAH ( 55 ) . AMUBH ( 55 ) * AMUBMU( 53 ) » 

2  ICASE ( 55 ) 

DIMENSION  USQ ( 2  ) 

►# 

IF(KC.GT.l)  GO  TO  10 

L-LX1 

L2*LX2 

L5-LX5 

J-.tMlN 

JL*J4l 

JLEFT«1 

JRIGHT*2 

TFXY*0. 

TFXZ»0* 

STEM*SENER1 
KL*  1 
KU*2 
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SUMIE-ENl Jtl)*FMASN(Jtl) 

U2 ( J • 1 ) »UNMX (Jtl) *UNPX l J • i ) *UNMY ( J • X ) *UNPY (Jtl) 

SUMKE-Ot 
SMOMY*FMNX( J t 1 ) 

SMOMZ*FMNY(JU) 

$KETPT*0* 

SMYTPT-O* 

SMZTPT-O. 

GO  TO  ( lt2tl ) * HOT  ION 
SMASS»FMASN (Jtl) 

IF( SMASStLT «0 )  WRITE(6tllO)  N. JtKCt I FMASN< I tL) tFMASNM( I tL) 
2tRWAlZ( I tL)  tRWAlZ  ( I tL2 )  »RWA3Z ( I  »L )  tRWA3Z( 1+1 tL)  t I *JMINt JMAX I 
SMSTPT *RWA1Z (Jtl) 

SIETPT»RWAE1Z( Jt 1 ) 

USQ (JLEFT ) *UNMX (Jtl)  **2*UNMY ( J • 1 ) **2 

FXMST  *  0.  23*(RWA1Z< Jt2)  ♦  RWA1Z( Jtl) )*TA2( J) 

FXTX  »  FXMST  *(UNMX(Jt2)  ♦  UNMX(Jtl)) 

FXTY  ■  FXMST  *(UNMY(Jt2)  ♦  UNMY(Jtl)) 

FXMSB  *TA2( J)*RWA1Z( Jtl) 

FXBX  *  FXMSB*UNMX (Jtl) 

FXBY  •  FXMSB*UMMY< Jtl) 

FXMSL  «  0.5*RWA3Z( Jtl) 

FXLX  -  FXMSL*UNMX( Jtl) 

FXLY  >  FXMSL*UNMY( Jtl) 

FXMSR  •  0* 125* ( RWA3Z ( Jtl )  *  RWA3Z( J+lt 1)  ) 

FXRX  ■  FXMSR  *(UNMX(Jtl)  *  UNMX(  J-f  ltl ) ) 

FXRY  «  FXMSR  *(UNMY(Jtl)  *  UNMY  (  J+l  1 1 ) ) 

TFXY*FXLX-FXRX+FXTX-FXBX 
TFXZ-FXLY-FXRY+FXTY-FXBY 
FMLYB  ( J )  «-F2Y  (Jtll  -TFXY 

FMLZB ( J )  ■  ( FMNY (Jtl) -FMNMY (Jtl)) *RDTNM-F2Z ( J t L ) -TFXZ 
FIMPY*FMLYB( J) 

FIMPZ-FMLZB(J) 

WORK • FMLYB ( J ) *UNMX ( J 1 1 ) *FMLZB ( J ) *UNMY ( J 1 1 ) 

DO  5  J-JLtJR 

SUM 1 E« SUM 1 E*EN ( J t 1 ) *FMASN ( J t 1 ) 

U2 (Jtl) *UNMX (Jtl) *UNPX (Jtl) ♦UNMY  (Jtl) *UNPY (Jtl) 
SMOMY-SMOMY4FMNX (Jtl) 

SMOMZ-SMOMZ+FMNY (Jtl) 

GO  TO( 3t4t3 ) tMOTlON 
SMASS*SMASS*FMASN (Jtl) 

IF(SMASS.LTtO)  WRlTE(itllO)  Nt JtKCt ( FMASNt 1 tL ) tFMASNMi  1  tL ) 

2  tRWAlZ ( 1 tL) tRwAlZ ( 1 1 L  2 ) tRWA3Z ( 1 1 L ) tRWA3Z ( 1*1 tL) 1 1 *JMlNt JMAX ) 
SMSTPT*SMSTPT*RWA1Z( Jtl) 

S1ETPT*SIETPT+RWAE1Z( Jtl ) 

USQ  ( JR  I GHT )  -UNMX  (Jtl)  **2+UNMY  ( J 1 1 )  **2 
SKETPT«SKETPT+RWA1Z ( J-l t 1 )*(USQ( JLEFT )*USQ( JR1GHT ) ) 
SMYTPT»SMYTPT+RWAlZ(J-ltl)*(UNMX(  J-ltl)*UNMX( Jtl) ) 
SMZTPT-SMZTPT+RWA 1Z ( J-l 1 1 )* ( UNMY  ( J-i 1 1 )*UNMY( Jtl ) ) 
JLEFT-JRIGHT 
JRIGHT*MOD( JLCFT  t2 )  +  l 

FXMST«»25*( TA1 ( J-l )*(RWA1Z ( J-l t2 )+RWAlZ ( J-l t 1 ) )*TA2( J )* 

2  (RWA1Z( Jt2)*RWAlZ( Jtl) ) ) 

FXTX  >  FXMST  *(UNMX(Jt2)  *  UNMX(Jtl)) 

FXTY  ■  FXMST  *(UNMY(Jt2»  ♦  UNMY (Jtl)) 

FXMSB-TA1 ( J-l )*RWA1Z ( J-l 1 1 » +TA2 ( J )*RWA1Z (Jtl) 

FXBX  ■  FXMSB*UNMX( Jtl) 

FXBY  «  FXMSB«UNMY( Jtl) 

FXLX  ■  FXRX 

FXLY  ■  FXRY  , 

FXMSR  «  0tl25*(RWA3Z( Jtl)  *  RWA3Z* J+l til) 
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FXRX  a  FXMSR  *IUNMX(J*1>  ♦  UNMX(  J4-1 » 1 )) 

FXRY  a  FXHSR  *<UNMY(J»1)  ♦  UNMY< J+1.1H 

TFXY«FXLX-FXRX+FXTX-FX8X 

TFXZ«FXLY-PXRY^FXTY-FX8Y 

4  FHLY  6 ( J ) « ( FMNX ( J  #  1 1 -FMNMX ( J • 1 ) ) *RDTNM-F1 Y  ( J-l # 1 ) -F2Y ( J • 1 )-TFXY 
FMLZB ( J I  a  < FMNY ( J . 1 ) -FMNMY ( J . 1 ) ) *RDTNM-F 1Z (  J-l • 1 ) -F2Z ( J • 1) -TFXZ 
FlMPY-FlMPY^FMLYB< J) 

FIMPZ«FIMPZ*FMLZB ( J ) 

5  irfORX ■ WORX+FML YB ( J ) *UNMX ( J*l) ♦FMLZB ( J  J *UNMY <  J , 1 ) 

JaJMAX 

U2 ( J • 1 ) -UNMX ( J • 1 ) *UNPX ( J  •  1 ) ♦UNMY ( J» 1 ) *UNPY ( J»  1 ) 
SMQMY«SMOMY+FMNX( J» 1 ) 

SMOMZ-SMOMZ4FMNY( J * 1 ) 

GO  TO  (6t7#6) * MOTION 

6  USQ ( JR IGHT ) *UNMX ( J • 1 ) **2+UNMY ( J»l)**2 
SXETPT*SXETPT^RWA1Z ( J-l • 1 >  * (USQ ( JLEFT ) ♦USUt  JR1GHT ) I 
SMYTPTaSMYTPT+RWAlZ <  J-l *  1 1  * ( UNMX ( J-l » 1  KUNMX IJilll 
SMZ  T  P  T  *SMZ  TP  T ♦RWA 1Z ( J-l i 1 ) * ( UNMY ( J- 1 • 1 ) ♦UNMY  ( J  •  1 ) ) 

FXMST*.  25* (RWA1Z ( J-l • 2 )+RWAlZ ( J-lt 1 ) )*TA1 ( J-l ) 
FXTX«FXMST*(UNMX( Jt2)+UNMX( J.l) ) 

FXTYaFXMST*(UNMY( J*2>+UNMY( J*l) ) 

FXMSB*  RWA1Z ( J-l • 1 )  *TA1( J-l ) 

FXBX  «FXMSB*UNMX ( J 1 1 ) 

FXBY  «FXMSB*UNMY ( J 1 1 ) 

FXLX-FXRX 

FXLYaFXRY 

FXMSR««5*RWA3Z(Jtl) 

FXRX*FXMSR*UNMX ( J • 1 ) 

FXRY  aFXMSR*UNMY  ( J • 1 1 
TFXYaFXLX-FXRX+FXTX-FXBX 

tfxz«fxly-fxry*fxty-fxby 

7  FMLYB( J)a-F1Y(J-Itll-TFXY 

FMLZB ( J I  a ( FMNY ( J • L I -FMNMY ( J • 1 ) ) *ROTNM-F 1Z I J-l 1 1 ) -TFXZ 

FIMPY*FIMPY*FMLYB(JI 

FIMPZ-F1MPZ*FMLZB(JI 

WORX ■ WORX+FML YB ( J ) *UNMX ( J • 1 J ♦FMLZB ( J ) *UN MY ( J 1 1 ) 

GO  TO  100 

10  IF(XC.EQ.XMAX)  GO  TO  39 

L»LX1 
L2-LX2 
L5*LX5 
JaJMIN 
JL«JMIN*1 
JLEFTal 
JRIGHT-2 
TXXY»0 
TXXZ«0 

SUM I E*  SUM I E*EN ( J • L I *FMASN ( J • L ) 

U2  (  J » XU ) ■ UNMX ( J  t L ) *UNPX ( J  t  L ) ♦UNMY ( J  •  L ) *UNP Y ( J • L ) 
SMOMY-SMOMY+FMNX( J#L) 

SMOMZ  *  SMOMZ+FMN Y ( J  * U 
GO  T0( 15t20tl5) tMOTION 
15  SM AS  S* SM A  SS^F MASN ( J • L ) 

1 F ( SMASS.LT *0 )  WRITE(6*110)  N • J  #  XC • ( FM ASN ( I » L ) * FMASNM <  I  •  L ) 

2  tRWAlZ ( I »L ) *RWA1Z ( I #L2 ) *RWA3Z ( I  * L ) »RWA3Z ( 1^1 »L ) •  I  * JMIN * JMAX ) 

20  IF i <XC*LT*XBOTI*OR.IXC*GT*XTOP) )G0  TO  25 

FXMST  *  o.  25*( RWA1Z ( J*L )  ♦  RWA1Z(J*L2  ))*TA2(J) 

FXTX  •  FXMST  »<UNMX(JtL»  ♦  UNMX(J.L2  )) 

FXiY  *  FXMST  *(UNMY(J»L)  ♦  UNMY(J*L2  )) 

FXMSB  •  0*  25*(RWA1Z(J*L>  ♦  RWA1Z(J»L5  ))*TA2(J) 

FXBX  *  FXMSB  *(UNMX(J»U  ♦  UNMXIJ.L5  )) 
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FXBY  *  FxMSB  *CUNMYCJ.L)  ♦  UNMY(JfL5  }) 

FXMSL  •  0.5*(RWA3Z(J.L)  ♦  RWA3ZIJ.L5  >1 
FXLX  •  F XMSL*UNMX ( J  *  L ) 

FXLY  *  FXMSL*UNMY I  J*L ) 

FXMSR  *  • 125*(RWA3Z( J»L)  ♦  RWA*ZCJ*1*L>  ♦  RWA3Z(J*L5  )  ♦ 

1  RWA3ZC J+1.L5  )) 

FXRX  -  FXMSR  •<UNMX(J*L)  ♦  UNMXC J+1*L) ) 

FXRY  ■  FXMSR  *CUNMYCJ*L)  ♦  UNMYCJ*1*L») 

TFXY*FXLX-FXRX+FXTX-FXBX 

TFXZ*FXLY-FXRY+FXTY-FXBY 

WRITEC6.108) 

STOP 

23  DO  34  J* JL* JR 

SUMIE*SUMIE+EN( J*L )*FMASN(  J*L ) 

U2 ( J  *  XU ) »  UNMX ( J  »  L ) *UNPX ( J  •  L ) +UNM  Y ( J  *  L ) *UNP  Y ( J  •  L ) 

SUMK  E*  SUMKE+ . 5  *  ( CMASS 1  *  J-l  •  L5  )  *  I U2  C  J  •  XL )  4U2  <  J  •  XU >  I +CMASS2  ( J- 1  •  L5 )  • 

2  IU2<J-1»XU*U2<  j-ltXU))) 

SMOMY  *  SMOM Y+FMNX ( J»L ) 

SMOMZ-SMOMZ+FMNYC J*L) 

60  T0(30»34»30) •MOTION 
30  SMASS*SMASS+FMASNCJ*L) 

IF ( SMASS.LT *0)  WRITE(6*110)  N* J*XC. (FMASNC I *L) *FMASNMC I »U 
2»RWA1Z(  I*L)  »RWA12 ( I  »L2 )  *RWA3Z ( I  *L )  *RwA3Z ( 1+1 *L) • I  *JMIN* JMAX ) 

34  CONTINUE 

35  J-JMAX 

U2  ( J  •  XU )  *  UNMX  ( J  •  L  )  +UNPX  ( J  •  L )  +UNM  Y  ( J  •  L )  *UNPY  ( J  •  L ) 

SUMKE*SUMKE+.5*(CMASS1 ( J-l tL5  )  *(U2( J»KL)+U2( J*KU)  I+CMASS2C  J-1*L5>* 
2  (U2(J-1«XU+U2(J-1*KU)I> 

KL-KU 

XU*MOD( XL*2 1+1 
SMOMY *SMOMY+FMNX ( J  •  L ) 

SMOMZ ■ SMOMZ +FMNY C  J  •  L ) 

FIMPY-FIMPY+FMLYRCKC) 

F I MPZ*F I MPZ+FMLZR ( XC I 

WORK  -WORK+FML YR  ( KC )  *UNMX  ( J  .  L )  +FMLZR  ( KC )  *UNMY  ( J  •  L ) 

GO  TO  100 

39  L*LX2 
L5*LX1 
J*JMIN 
JL* JMIN+1 
JLEFT-1 
JRI6HT*2 
TXXY-0 
TXXZ*0 

40  U2C  J*KU)*UNMXCJ*L)»UNPXCJ*L)+UNMY<  J*L)*UNPYC  J*L) 

5MOMY*SMOMY+FMNX t J*L) 

SMOMZ -SMOMZ -f  FMNY  ( J  •  L ) 

60  TOC  45 *50*45) *MOTION 
45  SMSTPT*SMSTPT-RWA1Z(J*L) 

SIETPT*SIETPT-RWAE1ZCJ*L) 

USQ  C  JLEFT ) *UNMX ( J ♦ L ) ++2+UNMY C  J • L ) *»2 
FXMST*  TA2 C  J ) *RWA1Z ( J»L) 

FX TX  *FXMS  T*UNMX ( J • L ) 

FXT Y*FXMST*UNMY  C  J  *L ) 

FXMSB*.  25*<RWA1ZCJ*L)+RWA1Z(J*L5  ))*TA2(J) 

FXBX«FXMSB  *(UNMXC J*L)+UNMXI J*L5  )) 

FXBY*FXMSB  *(UNMYC J*L)+UNMYI J*L5  )) 

FXMSL*0.5*RWA3Z(J»L5  ) 

FXLX*FXMSL*UNMX( J»L ) 

FXLY *FXMSL*UNMY ( J *L) 

FXMSR*. 125* (RWA3ZC J*L5  )+RWA3ZC J+1*L5  )) 
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FXRX-FXMSR  »(UNMX(  J*LKUNMX(  J+1.LJ  ) 

FXRY-FXMSR  *(UNMY(  J*LHUNMY(JM*L) ) 

tfxy*fxlx-fxrx+fxtx-fxbx 

tfxz«fxly-fxry^fxty-fxby 

50  FMLYT ( J)*-r3Y( J*L5)-TFXY 

FMLZT ( J)*(FMNY( J*L)-FMNMY( J*L  ) l*RDTNM-F3Z( J*L5)-TFXZ 
FIMPY«FIMPY+FMLYT(J) 

FIMPZ*FlMPZ^FMLZT( J) 

WORK -WORK+FML YT ( J ) *UNMX ( J»L )  +FMLZT ( J ) *UNMY ( J • L ) 

00  65  J.JL.JR 

U2 ( J • KU ) *UNMX ( J • L ) *UNPX (  J  •  L  ) +UNMY ( J • U  *UNP  Y I J  * LI 

SUMKE*SUMKE^.5*(CMASS1( J-1*L5)*(U2( J.KL)+U2( J.KU) KCMASS2I J-1*L5)* 
2  (U2(J-1*KL)+U2( J-liKUIII 

SMOMY»SMOHY+FMNX( J»L) 

SMOMZ *  SMOMZ+FMNY ( J*L ) 

GO  TO'  (55*60*55). MOTION 
55  SMSTPT-SMSTPT-RWAIZ(J.L) 

SIETPT*SIETPT-RWAE1Z(J»L) 

USQ <  JR  I GHT ) *UNMX ( J • L ) **2+UNMY ( J  *  L ) **2 
SKETPT-SKETPT-RWA1Z ( J-l • LI  * ( USQ ( JLEFT ) ♦USQ ( JR l GHT ) ) 
SMYTPT-SMYTPT-RWA1Z( J-1*L)*(UNMX( J-1*LKUNMX  ( J*L) ) 
SMZTPT-SMZTPT-RWA1Z ( J-l t  U « ( UNMY ( J-l *L  KUNMY ( J#L )) 

JLEFT-JRIGHT 

JR 1 GHT  *M00( JLEFT  *2 )+l 

FXMST-TA2(  J)*RWA1Z<  J.U+TAK  J-l >*RWA1Z ( J-ltL > 

FXTX*FXMST»UNMX(J*L) 

FXTY *FXMST»UNMY ( J  *L ) 

FXMSB-.25*(TA1(J-1)*(RWA1Z( J-1.L)+RWA1Z( J-1*L5) )+TA2( J)* 

2  (RWA1Z(J*L)+RWA1Z(J*L5)  )) 

FXBX-FXMSB  *(UNMX(  J*L)+UNMX(  J.L5  )) 

FXBY-FXMSB  * (UNMY ( J *L l+UNMY ( J*L5  )) 

FXLX-FXRX 

FXLY-FXRY 

FXHSR*.125*(RWA3Z(J»L5  ) +RWA3Z ( J+1.L5  )) 

FXRX-FXMSR  *(UNMX( J*L >+UNMX( J+l.L) ) 

FXRY*FXMSR  *(UNMY(  J*L)HJNMY(  J+1*L) > 

TFXY*FXLX-FXRX+FXTX-FXBX 

tfxz-fxly-fxry+fxty-fxby 

60  FMLYT  ( J)* (FMNX( J*L)-FMNMX( J»L)  )*RDTNM-F3Y ( J*L5 )-F4Y( J-1#L6  l-TFXV 

FMLZT( J)«(FMNY( J*L)-FMNMY( J*L) l*R0TNM-F3Z I J *L5 I -FAZt J-l *L5 l-TFXZ 
FIMPY-F IMPY+FMLYT ( J ) 

FIMPZ-FIMPZ^FMLZT(J) 

65  WORK«WORK+FMLYT ( J ) *UNMX ( J • L I ♦FMLZT ( J ) •UNMY ( J*L) 

J-JMAX 

U2 ( J • KU ) *UNMX ( J  *  L ) *UNPX ( J  •  L ) ♦UNMY ( J  •  L ) *UNP  Y ( J • L ) 

SUMKE-SUMKE+. 5* ( CMASS1 ( J- 1 • L5 ) • ( U2 ( J • KL ) +U2 ( J  * KU ) I ♦CMASS2 ( J-l t Lb ) * 
2  C  U2 ( J-1*KL)+U2( J-1*KU) > ) 

SMOMY  *  SMOMY ♦F  MNX ( J • L ) 

SMOMZ  *  SMOMZ+FMN Y C  J • L ) 

GO  TO  (70*75*70) • MOT I ON 
70  SMSTPT«SMSTPT-RWA1Z( J*L) 

SIETPT«SIETPT-RWAEIZ(J*L) 

USQ ( JR  I GHT ) *UNMX( J*L )*#2^UNMY ( J*L )**2 

SKETPT«(SKETPT-RWA1Z( J-i *L)*( USQ ( JLEFT HUSO) JR 1 GHT ) ) )**25 
SMYTPT* ($MYTPT-RWAIZ( J-l  *L)*(UNMX( J-1*L)^UNMX( J*L) ) )»*5 
SMZTPT ■ ( SMZTPT-RWA1Z ( J-l *L ) *(UNMY (J-l »L) ♦UNMY ( J*L ) ) )#*5 
FXMST«TA1(J-1)*RWA1Z(  J-1*L) 

FXTX»FXM$T»UNMX(J  *L) 

FXTY*FXMST*UNMY( J  *L) 

FXMSB*#  25*(RWA1Z( J-1*L)^RMA1Z( J-1.L5  ))*TA1(J-1) 

FXBX-FXMSB  *(UNMX(J  *LKUNMX(J  *L5  )) 
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FXBY-FXMSB  *(UNMY(J  #L)*UNMY(J  *L5  > ) 

FXLX-FXRX 

FXLY-FXRY 

FXMSR-0.5*RWA3Z<J  *L5  ) 

FXRX-FXMSR*UNMXIJ  »L) 

FXRY«FXMSR*UNMYt  J  »L) 

TFXY-FXLX-FXRX+FXTX-FXBX 
TFXZ-FXLY-FXRY+FXTY-FXBY 
75  FMLYT(J)— F4Y(J-1*L5)-TFXY 

FMLZ T  (  J )■  ( FMNY <  J  •  L ) -FMNMY C  J •  L ) ) «RDTNM-F4Z ( J- 1 1 L 5  ) -TFXZ 
FIMPY-FIMPY+FMLYT  I  J) 

FIMPZ-FIMPZ*FMLZT<J) 

WORK- WORK+FML YT I J ) »UNMX ( J . L ) ♦FMLZT ( J ) •UMMY <  J  *  L ) 

350  SUMT£-SUMlE*SUMKE 
SMSTPT-SMSTPT*DTNM 
SMASSI-SMASSl-SMSTPT 
SIETPT-SIETPT*DTNM 
SKETPT-SKETPT»DTNM 
WORK-WORK*DTNM 

SENERI-SENERI+WORK-SIETPT-SKETPT 

FIMP-(FIMPY*SFW)*DTNM 

FIMPZ-FIMPZ»DTNM 

$MYTPT-SMYTPT*DTNM 

SMZTPT-SMZTPT»DTNM 

SMOMYI-SMOMYH-FIMP  -SHY TP T 

SMOMZI-SMOMZI+FIMPZ-SMZTPT 

100  CONTINUE 
DIFFY-SMOMV  -SMOHY1 
DIFFZ-SMOMZ  -SMOHZ1 
SFY-FIMPY+SFW 
SFZ-F1MPZ 
SUMTE-SUMIE+SUMKE 
OSTE-SUMTE-STEM 
WT-WORK*DTNM 
TEM1-SFY*DTNM 
TEM2-SFZ-DTNM 
IFIKC.EQ.KMAX)  FIMPY-F1HP 
RETURN 

104  FORMAT ( 1H0/ 

163H  J  U2( J»KL )  U2 ( J+ltKL)  U2tJ*KU)  U2IJ+1.KU) 

2  /I4*4E15*7/) 

107  FORMAT (3tH0  KSV3  NOT  ZERO  NO  RIGHT  S10E  BOUNDARY/) 

101  FORMAT I1H0/ 

249H  NO  JM1N  CONTRIBUTION  CALCULATION  IN  THIS  PROGRAM/) 

110  FORMAT ( 316/ (6E 16*6 ) ) 

END 
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10 

100 


TIME* 
SIETPT. 
SMASSI. 
XTOP. 

CUT  1  » 
UYLTIN. 
JMAX* 

EIN* 

ALFA! 5) • 


SUBROUTINE  ENERGY 
COMMON 
2  XBMAX* 

SENERI* 

F1MPY* 

XBOT* 

KB* 

UXRBIN* 

JMIN* 

XT# 

E  S  ( 5 )  • 

TINY  A( 5 )  * 

XSV( 24 ) • 

FMLYRI 101 ) • 
COMMON 
2  EPY (55 1 * 

FMLZT ( 55 ) * 
PY(55»* 

R4H ( 55 ) • 

U2 ( 55*2) > 

COMMON 
A 

UNMY ( 55*5 ) • 
ENM(55*5 ) • 
PQNMXX( 55*5 ) • 
PQNXY ( 55*5 ) • 
RWAE3Z (55*5). 

E3Z ( 55*5 )  • 

ETA( 55*5 ) » 

A4Y ( 55*5 ) • 

A4Z  ( 55*5 ) • 

F4Y (55*5) • 
F4Z(55*5) * 
FMNMX(55»5 ) • 

AW1 (55*5 ) > 

RXM( 55*5 ) • 

Qll (55*5 ) » 

Pll ( 55  *5 ) » 

PQX ( 55*5 ) » 

COMMON  ICON* 

2  KC«  NOP A* 


NREGt  RDTNM*  MOTION* 
SMOMZI  •  SMZTPT*  SMOMZ* 
SXETPT.  WORK*  SUMIE* 
SMSTPT  *  SMASS*  PROBNO* 
MAXN*  TMAX*  OTNMN* 
CUT2*  UYLBIN*  UYBIN* 
UYTIN*  UYRTIN*  UXLTIN* 
XMIN*  KMAX*  JL* 

RHOIN*  UYIN* 
BIG  A(  5 )  •  BIG  B(5 
TINY  8(5 )  *  R 
YTERMI 55 )  • 

FMLZR ( 101 ) • 


EPZ (55)* 
LY1(55) * 
PZ ( 55  )  • 
Z1H ( 55 )  * 
B( 55*4) 


ZERO! 5) *BETA( 5 ) 
Y2TERMI55) • 
VACANT (15) 

A( 55) • 

FMLYBt  55 ) • 
LY2(55)« 

R1H( 55 ) • 

Z2H ( 55  )  • 


JBNIN* 

SMOMY I  • 

SUMXE* 

OTNM* 

SFW* 

UYRBIN* 

UXTIN* 

J3* 

UXIN* 
)•  RCP  V 
•  QCON( 
TA1(55)» 


JBMAX*  XBMIN* 
SMYTPT*  SMOMY* 
SUMTE*  FIMPZ* 
CUTOFF*  N* 
0TNMP5*  DTNM2* 
UXLBIN*  UXblN* 
UXRTIN*  XTM* 

JR*  JRM* 

XINT ( 5 ) • 
S(5)*E  ZERO ( 5 ) * 
5)*  SAV(12)» 

TA2 ( 55  )  • 


01 L( 55 ) • 
FMLYT(55) • 
LZ1(55)» 
R2H(55)» 
Z3H ( 55 )  • 


EPX ( 55 )  • 
FMLZB( 55  )  • 
LZ2( 55 )  • 
R3H( 55 )  • 
Z4H( 55 ) * 


RX ( 55*5 )  • 

UNPX ( 55*5 ) • 
EN(55*5) • 
PONMXY (55*5)* 
PQNYY (55*5)* 
RWAE1Z (55*5)* 
E1Z( 55*5) * 

A1Y (55*5)* 

A1Z (55*5)* 
F1Y(55*5) • 

F1Z ( 55  *5 ) • 
NTPT ( 55*5 ) • 
FMNMY ( 55*5 ) • 

AW 2 ( 55*5) • 

RYM( 55*5 ) • 
012(55*5)* 
P12(55*5) • 
POMX( 55*5 ) • 
LINCT*  LX1* 


RY( 55*5 ) * 

UNPY (55*5) • 
PNM(55»5 ) * 
PONMYY(55*5) • 
RWA3Z (55*5)  • 
RH3Z(55*5) • 
RHO(55»5) • 

A2Y (55*5)* 
A2Z(55*5) • 

F2Y (55  *5 ) • 
F2Z(55*5) * 
FMSNZ ( 55*5 ) • 
FMNX(55*5) * 
CMASS1(55*5) • 
RXZ (55*5)* 
022(55.5). 
P22(55*5) • 

V0( 55*5) 

LX2* 


UNMX(55*5) • 
FMASNMt  55  *5 ) » 
PN( 55*5 ) • 
PONXX( 55 *5 )  • 
RWA1Z (55*5)* 
RH1Z( 55*5 ) * 
VOL( 55*5 ) • 

A3Y ( 55*5 ) • 
A3Z(55*5) * 

F3Y ( 55*5 ) • 
F3Z(55»5) * 
FMASN( 55  *5 ) • 
FMNY ( 55*5 ) • 
CMASS2( 55*5 ) • 
RYZ( 55*5 ) • 
OX(55»5) * 
PX(55*5) * 


LX5* 


LX3*  LX4* 

NEOIT*  NSIG*  '  NMASS*  NOMP 
AZQ(  55 ) *TRAPV( 55 ) *TRAPYH( 101 ) *TRAPZH( 101 ) *AYQ( 55 ) 


COMMON 
2.YOELTAI55) 

COMMON  Sl(55) *S2( 101) 

COMMON  GMU(55 ) *H(  55 ) • BET AH ( 55 ) *ALFAH( 55 ) 
2  I CASE ( 55 ) 


• AMUBH( 55 ) »AMUBMU( 55 ) * 


L*LX1 

L2«LX2 

TFXE-O* 

00  100  J>JMIN»JR 

IF(M0TI0N*NE.2)TFXE*RWAE3Z( J.L)-RWAE3Z( J+1.L)-RWAE1Z( J.L)+ 

2  RWAE1Z ( J.L2 ) 

EN ( J  *  L ) * ( ENM ( J  *  L ) *FM ASNM ( J  *  L ) -DTNM» ( UNMX (J+1.L)*F1Y(J*L) ♦UNMY ( J+ 1 » 
1  L)*F1Z(J*L) 

1  ♦UNMX (J*L)*F2Y(J*L) ♦UNMY (J*L)*F2Z(J*L) +UNMX ( J*L2 I *F3Y ( J.L )♦ 

2  UNMY  ( J  »  L2 )  *F  3Z  ( J  *  L )  ♦UNMX  (»>+l.L2)*F4V(J*L)  ♦UNMY  (J^1*L2)#F4Z(J*L)* 

3  TFXE) ) /FMASNI J.L ) 

IF(ABS(EN(J*L)-ENM(J.L) )-CUTl) 10* 10*100 
EN( J»L)-ENM(J*L) 

CONTINUE 
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RETURN 

END 
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SUBROUTINE  FLOW  / 

COMMON  NREG*  RDTMM*  MOTION*  JBM1N*  JBMAX*  KBM1N* 

2  KBMAX.  TIME*  SMOMZl*  SMZTPT*  SMOM2.  SMOMYI*  SMYTPT •  SMOMY* 

3  SENERI •  SIETPT.  SKETPT *  WORK*  SUMIE.  SUMKE*  SUMTE.  FIMPZ* 

4  FIMPY*  SMASSI*  SMSTPT*  SMASS*  PROBNO*  OTNM*  CUTOFF*  N* 

5  KBOT •  KTOP*  MAXN*  TMAX t  DTNMN*  SFW*  DTNMP5.  OTNM2* 

6  KB*  CUT  1 •  CUT2*  UYLBIN*  UYBIN*  UYRB1N*  UXLBIN*  UXblN* 

7  UXRBIN*  UYLTIN*  UYTIN*  UYRTIN.  UXLTIN*  UXTIN*  UXRTIN*  KTM* 

6  JMINt  JMAX*  KMIN*  KMAX*  JL*  J3.  JR*  JRM* 

9  KT*  EIN*  RHOIN*  UYIN*  UXlN*  KINT(5). 

A  E  S  C  5  >  •  ALFA(  b )  •  BIG  A(5).  BIG  B  (5)*  RCP  V  S(5)*E  ZERO(5). 
2  TINY  A( 5 ) •  TINY  Bib),  R  2ERO( 5 ) *BETA< 5 )  *  GCON(5)*  SAVU2)* 

4  KSV(24) *  YTERM(55) *  Y2TERM(35).  TA1I55) *  TA2(55)* 

b  FMLYR ( 101 )  »  FMLZRU01)*  VACANT ( 15  ) 

COMMON  A (55)*  0IL( 55) •  EPX(55). 

2  EPY Ibb) ,  EPZ Ibb) $  FMLYB(55)*  FMLYT Ibb) 9  FMLZB( bb  )  • 

3  FMLZT ( 55 )  *  LY1 ( 33 ) *  LY2(55).  LZ1(33) •  LZ2155)* 

4  PY ( 33) •  PZ( 55 ) •  R1H( 55 ) •  R2H(55)»  R3HI55)* 

5  R4H ( 55 ) •  Z 1H ( 55 ) *  Z2H( 55 ) *  Z3HI55)*  Z4H(55)» 

6  U2 ( 55 *2 ) •  B( 55*4) 

COMMON 

A  RX (55*5 1 •  RY( 55  *5 ) •  UNMX(55»5)* 

1  UNMY (55*5)*  UNPX( 55*5 ) •  UNPY(55*5)*  FMASNMt  55  *5 )  • 

2  ENM(55*5) •  EN ( 55*5 ) ♦  PNM(55*5)«  PN(55»5)» 

3  PONMXX( 55*5 ) •  PQNMXY (55*5)*  PONMYY C 55*5 ) •  PONXX(55*5)» 

4  PONXY (55*5) •  PQNYY(55.5).  RWA3Z(55*5)»  RWA1Z(55*5)» 

5  RWAE3Z ( 55* 5 ) •  RWAE1Z(55*5) *  RH3Z(55*5)*  RH1Z(55*5)* 

6  E3Z ( 55 *5 ) t  E1Z ( 55 *5 ) •  RH0155.5),  VOL(55*5)» 

7  ETA ( 55 *5 ) •  A1Y(55*5).  A2Y(55*5).  A3Y155.5). 

8  A4Y (55*5)*  A1Z(55*5)»  A2Z(55.5).  A3Z(55»5)* 

9  A4ZC55.5)*  F1Y ( 55 *5 ) •  F2Y(55*5)»  F3Y(55*5). 

A  F4Y ( 55  *5 ) ♦  F1Z(55*5|*  F2Z(55*5)»  F3Z(55»3)» 

1  F4Z (55*5)*  NTPT ( 55*5 ) •  FMSNZ(55*5)»  FMASN(55*3)* 

2  FMNMX( 55*5 ) •  FMNMY(55*5)*  FMNX(55»5)»  FMNY(55*5)* 

4  AHl (55*5)*  AW2  <55*5) •  CMASS1 ( 55*5 ) t  CMASS2 (35*5)* 

5  RXMC55 *5 ) •  RYM(55*5).  RXZ(55*5).  RYZ(55*5)* 

6  011 (55*5)*  012(55*5).  022(55*5)*  OX(55*5)» 

7  Pll (55*5 ) •  P12(55*5) •  P22(55.5)*  PX(55.5)*  ' 

8  PQX (55*5)*  POMX( 55*5 ) •  V0(55.5) 

COMMON  ICON*  LINCT*  LXl*  LX2 •  LX 3*  LX4*  LX5  * 

2  KC*  NOPA*  NEOIT*  NSIG*  NMASS*  NDMP 
COMMON  AZQ<  55 ) *TRAPV( 55 ) *TRAPYH( 101 )  *TRAPZH( 101 ) *AYO( 55  ) 

2  *Y0ELTA( 55 ) 

COMMON  Sl( 55) *S2( 101 ) 

COMMON  GMUI55) *H( 55 ) *BETAH( 55 ) *ALFAH ( 55 ) *AMUBH(55) .AMUBMUC55) • 

2  ICASE(35> 

KC*1 

LINCT*1 

NREG-1 

LX1*1 

LX2*2 

LX3«3 

LX4*4 

LX5«5 

00  10  L*l»4 
00  10  JMIN* JMAX 

10  B|J*L)«0.0 

C  REAO  IN  3  K  LINES  1ST  CALL  ONLY 
CALL  LINE1N 
J-JMIN 
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IF<<PQNMXX<  J*2UNE*OUOR*(PQNMXX(  J*1)«NE*0) 

2  «0R* (UNMYt J *2 ) «NE»0 ) *0R* ( UNMY ( J* 1 ) *NE *0 )  I  60  TO  15 
CALL  ACTIVE 
SFW-O. 

00  11  J«JM1N* JMAX 
RWA12< J,: )«0. 

RWAE1ZI J*1 )a0« 

FlY(J*l)-0. 

F12<J.1»«0. 

F2Y(J.1)«0. 

11  F2ZIJ*1)«0* 

CALL  CONSCX 
60  TO  21 

15  CALL  VERTPT 

20  CALL  BOUND 

21  LX0*LX1 
LX1*LX2 
LX2*LX3 
LX3aLX4 
LX4aLX5 
LX5-LX0 
XB-XMIN+1 
XTMaXT-l 

00  50  KaXB*XTM 

J-JMIN 

KC*K 

IF  t (PQNMXXl J.LX2).NL#0)*0R.(PQNMXX( J.LXl I *NE*0> *0R. 

2  (PQNXXI J*LX5 ) «NE«0) *0R« (UNMYI J*LX2 ) *Nt*  0 ) #0R* (UNMY ( JtLXl ) «NE«0 ) 

3  *0R» (UNPY ( JtLXS) *NE*0) )  60  TO  30 
CALL  ACTIVE 

CALL  CONSCX 
IF ( K*EQ«KB)  60  TO  45 
60  TO  410 
30  CALL  VERTPT 

CALL  HORTPT 
CALL  MASS 

35  I F C (K+l) •LT«XINT(NREG) 160  TO  41 
NREG-NREG+l 

STOP  i 

41  CALL  STRESS  *  ' 

CALL  NEWU  < 

CALL  CONSCX 
IF  (K.EQ.KB)  60  TO  45 
60  TO  1 410*415 *410) •  MOT  I ON 
410  CALL  SETTPT 

415  CALL  LINOUT 

IFU.EQ.XTMIGO  TO  45 
CALL  LINEIN 
00  43  Lal*3 
00  43  J*JMIN*JMAX 
43  B(J*L)aB( J*L+1) 

45  LXO-LXl 

LX1*LX2  \ 

LX2*LX3 
LX3-LX4 
LX4-LX5 
LX5-LX0 
50  CONI !NUE 
J-JMIM 
XCaXT 

IF  I (PQNMXXl J*LX2 ) *NE«0 )  *0R« (PQNMXXt J*LX1 ) *NE*0 ) «0R* 
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2  ( PQNXX ( J»LX5 ) «NE«0 I «0R • (UNMY ( J  *  LX2 )  *NE*0 ) «0R* (UNMY ( J *  LX  1 ) »NE  »0 ) 

3  *0R* (UNPY( J*LX5) »NE*0) )  GO  TO  300 
DO  5000  J* JMIN* JMAX 

RHO( J*LX2)«0. 

PN( J.LX2)«0. 

FMASN( J*LX2)«0. 

£TA( J,LX2)*0. 

EN(J*LX2)«0*  k 

RWA32( JtLX2 )«0. 

5000  RWAE3Z< J.LX2)*0. 

CALL  ACTIVE 
CALL  CONSCK 
KC-KMAX 
CALL  ACTIVE 
CALL  CONSCK 
GO  TO  501 

500  CALL  BOUND 

C - WRITES  OUT  4  K  LINES  LAST  CALL  ONLY 

501  CALL  L1NOUT 
RETURN 

END 
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SUBROUTINE  FORCE 


COMMON 

NREG*  RDTNM. 

MOTION* 

JBMIN* 

JBMAX. 

KBMIN* 

2 

KBMAX  * 

TIME. 

SMOMZI*  SMZTPT * 

SMOMZ* 

SMOMY 1  * 

SMYTPT  » 

SMOMY* 

3 

SENERI  . 

SIETPT. 

SKETPT •  WORK* 

SUM  1 E • 

SUMKE  » 

SUMTE. 

FIMPZ* 

4 

FIMPY, 

SMASSI • 

SMSTPT *  SMASS* 

PROBNO* 

OTNM* 

CUTOFF, 

N* 

5 

KBOT  * 

KTQP  * 

MAXN,  TMAX . 

DTNMN. 

SFW  * 

DTNMP5 , 

0TNM2* 

6 

KB* 

CUT  1  * 

CUT2,  UYLBIN, 

UYBIN* 

UYRBIN* 

UXLttIN* 

UXbl N» 

7 

UXRBI N, 

UYLTIN* 

UYTIN*  UYRTIN. 

UXLTIN* 

UXTIN. 

UXRTIN, 

KTM, 

8 

JMIN* 

JMAX  » 

KMIN,  KMAX » 

JL  • 

J3. 

JR* 

JRM* 

9 

KT, 

E  IN* 

RHOIN* 

UYIN* 

UX1N* 

KINT ( 5 ) • 

BIG  A ( 5  )  *  BIG  B(5 ) •  RCP  V  S(5)*E  ZERO ( 5 ) • 


ALFA ( 5 )  • 

TINY  B(  5 )  •  R  ZERO! 5 ) *BETA( 5) •  QC0N(5). 

YTERM( 55 ) »  Y2TERH ( 55 ) *  TA1 ( 55 ) • 
FMLZR( 101) • 


EPZ ( 55 ) » 
LY1(55), 
PZ ( 55 ) * 

Z 1H ( 55  )  * 
B ( 55  *4 ) 


Y2TERH ( 55  )  * 
VACANT ( 15 ) 
A( 55 )  • 
FHLYBl 55 ) * 
LY2 ( 55 ) • 
R1H(55). 

Z2H ( 55 ) • 


01 L ( 55 ) » 
FMLYT ( 55 )  • 
LZ1(55) * 
R2H( 55 ) * 
Z3H ( 55 ) t 


SAV(12>* 
TA2 ( 55 ) • 

tPX ( 55 ) * 
FMLZb ( 55 )  * 
LZ2 ( 55 ) • 
R3H ( 55 ) » 
Z4H ( 55 )  » 


A  E  S  (  5  )  » 

2  TINY  A( 5 ) • 

4  KSV ( 24 ) • 

5  FMLYR( 101) • 

COMMON 

2  EPY ( 55 )  * 

3  FMLZT ( 55  )  • 

4  PY ( 55  )  • 

5  R4H ( 55  )  * 

6  U2 ( 55  *  2  )  » 

COMMON 

A 

1  UNMY ( 55  •  5  )  » 

2  ENM (55*5). 

3  PQNMXX (55*5)  • 

4  PQNXY (55*5)* 

5  RWAE3Z (55*5)* 

6  E3Z ( 55  »  5 )  ♦ 

7  ETA ( 55  »  5  )  * 

8  A4Y (55*5). 

9  A4Z (55*5). 

A  F4Y(55*5). 

1  F4Z (55*5)  » 

2  FMNMX (55*5)  * 

4  AW1 ( 55  *5  )  » 

5  RXM ( 55  •  5  )  * 

6  011(55*5)* 

7  Pll ( 55 *5  )  » 

8  PQX ( 55  *5  ) » 

COMMON  ICON. 

2  KC,  NOPAf 

COMMON  AZQ( 55  )  »TRAPV(  55 ) *TRAPYH( 101 ) »TRAPZH( 101)*AYO(55) 

2»YDELTA(55 I 

COMMON  SI ( 55 ) »S2 ( 101 ) 

COMMON  GMU( 55 ) *H( 55 ) » BETAH ( 55 ) .ALFAH ( 55 ) • AMUBH ( 55 )  * AMUBMU( 55 )  * 
2  I  CASE ( 55 ) 


RX ( 55  »5 ) • 

UNPX ( 55*5) * 
EN155.5). 

PQNMXY (55*5) • 
PQNYY (55*5) t 
RWAE1Z (55*5) * 

E 1Z ( 55  *5  )  * 
A1Y155.5)  • 

A1Z ( 55  *5 )  • 

F 1 Y ( 55  *5 ) * 
F1Z(55.5) , 

NTPT ( 55*5 )  * 
FMNMY (55*5)* 

AW2 ( 55  *5 ) » 

RYM( 55*5 ) * 
012(55*5) * 

P12 ( 55 » 5 ) * 

PQMX( 55*5)  • 
LINCT*  LX  1  * 
NEDIT*  NSIG* 


RY ( 55 • 5 ) * 

UNPY (55*5) * 

PNM (55*51* 
PQNMYY 155.5)* 
RWA3Z (55*5)  • 
RH3Z (55*5)  • 

RHO ( 55  *5 ) » 

A2Y ( 55  »  5 ) » 

A2Z (55*5)* 

F2Y (55*5)* 

F2Z ( 55  *5  )  » 

FMSNZ (55*5)* 
FMNX (55*5) * 
CMASS1 ( 55*5 ) . 
RXZ (55*5)* 
022(55.5). 

P 22(55,5). 

V0( 55  *5 ) 

LX2*  LX3 » 
NMASS*  NDMP 


UNMX (55*5 ) • 
FMASNM( 55*5 ) » 
PN( 55*5 ) • 
PUNXX (55*5)* 
RWA1Z (55*5)* 
RH1Z ( 55  »  5  )  • 
VOL (55*5)  • 

A3Y (55*5)  » 

A3Z (55*5)  * 

F3Y ( 55 *5  )  * 

F3Z (55*5) » 
FMASN (55*5)* 
FMNY (55*5) » 
CMASS2 (55*5). 
RYZ ( 55  *5  )  * 

QX ( 55  *5  )  » 

PX (55*5)  • 


LX4 1 


LX5  » 


SAV ( 6 ) *  1 •-SAV ( 6  ) 

L«LX1 

L2*LX2 

IF  (XC.EO.l )SFW*0. 

00  100  J«JMIN*JR 
ARH1-AWK  J*L) 

ARH2«AW2( J*L) 

ARH3«AW2( J*L) 

ARH4»AW1 ( J,L ) 

P11Bb«5»(P11(J*L)+Q11(J»L )+ PQNMXX ( J  *L  )  ) 
P12B«*5*(P12(J*L)+012 ( J»L) +P(  NMXY ( J» L ) ) 
P22B«*5»(P22( J*L)  *022 ( J»L) ♦PQNMYY ( J.L) ) 
PXB*.5*(PX( J.L)*OX( J»L)+P0MX( J*L) ) 
A1YR*A2Y(  J.D-ARHl 
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F 1 Y  ( J  t  L )  «P  1 1  B*A1 YR+P 12B* A2Z  ( J  *  L )  +PX0*ARH  1 
F1Z( JtL)«P12B*AlYR+P22B*A2Z( Jtl) 

A2YR«A1Y(J»L)-ARH? 

F2Y  C  J  tL )  «P1 1B*A2YR«-P12B*A1Z  ( J*L  I  ♦PXB*ARH2 
F2Z ( JtL ) *P12B*A2YR+P22B*A1Z ( J»L ) 

A3YR»A4Y ( J*L ) -ARH3 

F3Y  (  JtL  I  ■P11B*A3YR+P12B*A4Z  ( J  tL)  ♦PXBMRHS 
F3Z( JtL) «P12B*A3YR*P22B*A4Z (JtL) 

A4YR»A3Y(JtL)-ARH4 
IF(SAV(6).EQ.O)  SFW  *PXB* ( ARH 14 ARH2 *ARH3  +ARH4 ) *SF W 
F4Y( JtL )  »P1 1B*A4YR+P  12B*A3Z  (JtL)  «-PXB*ARH4 
F42 ( Jt L ) «P12B*A4YR+P22B*A3Z (JtL) 

PON  XX( J»L)*Pll(JtL)+QU( JtL) 

PON  XY( J»L)*P12(J»L)+Q12< JtL) 

PON  YY( J»L) »P22( JtL )+Q22( JtL) 

POX( JtL)«PX( JtL)+OX(JtL) 

CONTINUE 

RETURN 

END 
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SUBROUTINE  HORTPT 


COMMON 

NREG*  RDTNM* 

MOTION* 

JBMIN* 

JBMAX* 

KBMIN* 

2 

KBMAX* 

TIME*  SMOMZI*  SMZTPT * 

SMOMZ* 

SM0MY1* 

SMYTPT • 

SMOMY* 

3 

SENERI • 

SIETPT •  SKETPT •  WORK* 

SUM1E* 

SUMKE » 

SUMTE* 

F1MPZ* 

4 

FIMPY* 

SMASSI*  SMSTPT  *  SMASS* 

PROBNO* 

DTNM* 

CUTOFF* 

N* 

5 

XBOT* 

KTOP*  MAXN*  TMAX* 

OTNMN* 

SFW* 

DTNMP5. 

0TNM2* 

6 

KB* 

CUT  1 •  CUT2*  UYLBIN* 

UYBIN* 

UYRB1N* 

UXLttIN* 

UXttIN. 

7 

UXRB1N* 

UYLT1N*  UYTIN*  UYRT1N* 

UXLTIN* 

UXTIN* 

UXRTIN* 

KTM* 

B 

JMIN* 

JMAX*  KMIN*  KM AX* 

JL* 

J3. 

JR* 

JRM* 

9 

KT* 

EIN*  RHOIN* 

UYIN*  . 

UXlN 

•  KINT(5). 

A  E  S  ( 5 )  *  ALFA(  5 )  •  BIG  A(5)>  BIG  B(5')*  RCP  V  $(5)*E  ZERO(5)* 
2  TINY  A(5>*  TINY  B(5)*  R  ZERO(5) *BETA(5) •  QCON(5).  SAV(  12  )  * 


4 

KSV( 24) • 

YTERM(55 ) • 

Y2TERM(55) •  TA1(55) •  TA2(35)» 

5 

FMlYR(lOl) • 

FMLZR(lOl) • 

VACANT (15) 

COMMON 

A(55) •  OIL ( 55 ) •  EPX ( 55 ) * 

2 

EPY(55)* 

EPZC55 ) * 

FMLYB( 55 )  •  FMLYT (55) *  FMLZB(53). 

3 

FMLZT ( 55 ) * 

LY1(55)* 

LY2 ( 55 ) »  LZ1(55».  LZ2(55)* 

4 

PY( 35 ) * 

PZ(  55 )  • 

R1H(55 ) *  R2H( 55 ) •  R3H(55)» 

5 

R4H(55). 

Z1H ( 55 )  * 

Z2H(55 ) •  Z3H( 55 ) •  Z4H(55)» 

6 

U2 155*2)* 

B( 55*4) 

COMMON 

A 

RX(55*5) • 

RY ( 55  *5  )  • 

UNMX(55*5) • 

1 

UNMY ( 55*5 ) • 

UNPX(55*5)» 

UNPY ( 55*5 )  • 

FMASNM(55»5 ) • 

2 

ENM( 55  *5 ) • 

EN( 55*5 ) • 

PNM (55*5)* 

PN(55*5)» 

3 

PQNMXX(  55*5) 

•  PONMXY (55*5) 

•  PONMYY{55»5) » 

PQNXX(55*5 )  • 

4 

PONXY(55*5) • 

PONYY(55*5) • 

RWA3Z ( 55*5  )  » 

RWA1Z(55.5)  • 

5 

RWAE3Z (55*5) 

•  RWAE1Z (55*5) 

•  RH3Z(55*5)  • 

RH1Z(55*5)» 

6 

E3Z (55*5)* 

E1Z ( 55  *5 ) » 

RHO(55. 5) * 

VOH55.5)  . 

7 

ETA ( 55  *5 ) • 

A1Y ( 55*5 ) • 

A2Y (55*5)* 

A3Y ( 55*5 )  • 

8 

A4Y (55*5) • 

AlZ (55*5)* 

A2Z (55*5)* 

A3Z ( 55*5 )  • 

9 

A4ZC55.5)* 

F1Y(55*5) • 

F2Y (55*5)* 

F3Y( 55*3 ) » 

A 

F4Y (55*5)* 

F1Z (55*5 ) * 

F2Z(55*5)  * 

F3Z(55*5)  • 

1 

F4Z(55*5) • 

NTPT ( 55*5 ) » 

FMSNZ ( 55*5  )  » 

FMASN(55*5 )  * 

2 

FMNMX(55*5 ) * 

FMNMY (55*5) • 

FMNX( 55*5 ) • 

FMNY (55*5 )  • 

4 

AW1 (55*5) • 

AW 2 (55*5)* 

CMASS1(55*5) » 

CMASS2(55*5  )  » 

5 

RXM155  *5 ) • 

RYM( 55 *5 )  • 

RXZ (55*5)* 

RYZ( 55*5 ) • 

6 

011(55*5)* 

012(55*5)* 

022(55.5). 

QX(55*5) * 

7 

Pll(55»5) • 

P12( 55* 5) • 

P22 (55*5)* 

PX( 55 *5 ) • 

8 

PQX (55*5)* 

POMX( 55*5 ) • 

V0( 55  *5 ) 

COMMON  ICON*  LINCT*  LX1*  LX2*  LX3*  LX4.  LX5* 

2  XC*  NOPA*  NEDIT*  NS1G*  NMASS*  NDMP 
COMMON  AZ9(55) *TRAPV(55) *TRAPYH( 101 ) »TRAPZH< 101) *AYQ(55) 

2  •  YDELTA(55) 

COMMON  - Sl(55) *S2( 101) 

COMMON  GMU(53)*H(55)*BETAH(55)*ALFAH(55>*AMUBH(55)*AMUBMU(55) • 
2  ICASEI55) 

C**w« 

U-LXi 

L2aLX2 

DO  100  J«JMIN*JMAX 
100  AYQ(J  )-TRAPZH(KC)»RX( J.L) 

A< JMIN)«0.0 
A( JM'N+l )*0*0 
A(JMAX)«0*0 
200  JL*JMIN+2 

00  214  J*JL. JR 

SNOI5EaRHO(J*U-2**RHO(J-l*L)«>RHO(J-2*L) 

I F €  ABS($NOlSE).LE.(RHO(J-l.L)*10.E-8))  GO  TO  212 
IF (SNOISE 1211 *212*213 
211  A(J)»-1*0 
GO  TO  214 


213 


212  A(J)*0*0 
60  TO  214 

213  A|J>«1.0 

214  CONTINUE 
JL-JMIN+1 

00  260  J* JL* JR 

NX  •  UNMX ( J»L )  ♦  UNMX( J*L2 ) 

C - AY  IS  ZERO  RX( J.L )«RX< J.L2 ) 

NDA**5»NX*AYQ(J) 

C  BACKWARD  TRANSPORT 

60  TO  236 

222  JP2-J+2 
JP«J*1 
JZ*J 
JM-J-1 

223  IF< JL-J) 226*224*226 

224  IF (NDA) 225*260*255 

223  IF(A(JP)*A( JP2) I 263 *270 *263 

226  IF( Jl>l-J)229*227*229 

227  IF (NDA) 250*260*226 

228  IF( ABS( A( JZ)+A( JP)+A( JP2) )-3*0) 25 5*270* 255 

229  1 F  C JR-l-J  >232*230*232 

230  IF (NDA >231*260 *245 

231  I F I ABS ( A  (  JM )  ♦  A  ( JZ )  ♦  A  ( JP ) )-3*0)265.270*265 

232  IF< JR-J>*35*233*235 

233  IF (NDA) 265.260*234 

234  IF( A( JZ)-A( JM) ) 253*270*233 

235  I F  ( ABS ( —A ( JP2 ) *A ( JP ) +A  <  JZ ) “A ( JM ) ) -4 • 0 ) 240 *236*240 

236  IF (NDA) 265*260*255 
240  IF(NDA>250*260*245 

245  IF( ABS(A( J*l)-A( J)+A( J-l ) 1-2* ) 270 *255 *255 
250  1F(ABS(A( J+2J-A1 J*l)+A< J) )-2. J270.265.265 
•  255  RH3Z 4  J  •  L ) ■RHO ( JM* L ) 

E3Z( J«L)*ENM( JM*l) 

60  TO  275 
260  RH3Z( J*L ) *0*0 
E3Z(J.L)«0*0 
60  TO  275 

265  RH3Z ( J • L ) ■RHO ( JZ • L ) 

E3Z ( J.L ) *ENM( JZ*L ) 

60  TO  275 

270  01*SQRT( (RX(JZ*L2)+RX( JZ.L)-RX( JM*L2)-RX( JM*L>)**2 
1  +(RY(  JZ*L2  )+RY( JZ*L)-RY( JM.L2  >-RY( JM.L) )**2) 

D2«SQRT( (RX(JP*L2  )^RX C JP*L)-RX( JZ.L2  )-RX ( JZ.L )  ) **2 
1  ♦(RV( JP.L2  M-RY(JP*U-RV(  JZ.L2  )-RY( JZ*L)  1**2 1 
012*1*0/ ( D1+D2 I 

C - AY  IS  ZERO  RX(J*L)*RX(J*L2) 

NDAMA6* ABS ( AYO ( J ) ) 

NN*NDA/NDAMA6 

RH3Z ( J • L ) * ( 02*RH0 ( JM  *  L ) ♦01#RH0 (JZ.L ) -3*0*NN* I RHO ( JZ • L ) -RHO ( JM • L ) ) * 
1  DTNM)*D12 

E3Z( J*L)*(D2*ENM( JM.L)+D1*ENM( JZ*L)-3.0«WN*(ENM( JZ.L)-ENM(JM.L))* 

1  0TNM)*D12 

275  RNA3Z( J*U*RH3Z(J»L)«N0A 

RNAE3Z ( J*  L ) *RWA3 Z ( J.L)*E3Z( J.L) 

260  CONTINUE 
300  RETURN 
END 
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SUBROUTINE  LINEIN 
COMMON  NR  EG* 

2  UMAX*  TIME*  SMOMZI 

3  SENER1 *  SIETPT •  SKETPT 

4  FINPY*  SM ASS 1 •  SMSTPT 
ft  KBOT*  XTOP*  MAXN* 

6  KB*  CUT1*  CUT2* 

7  UXRBIN*  UYLTIN*  UYTINi 
•  JMIN*  JMAX*  XMIN* 

9  XT*  EIN* 

A  E  Sift)*  ALFAlft)* 

2  TINY  A< ft ) •  TINY  BCft)* 

4  KSVI24) •  YTERMtftft) 

ft  FMLYRIlOl)*  fmlzriioi 

COMMON 

2  EPYfftft)*  EPZIftft) • 

3  FMLZT I ftft ) •  LY1I55)* 

4  PYlftftl*  PZIftft)* 

ft  R4H I  ftft )  *  ZlHIftft ) * 

6  U2 ( ftft *2 ) •  B( ftft *4) 

COMMON 


ROTNM*  MOTION* 

•  SMZTPT.  SMOMZ* 

•  WORK*  SUMIE* 

•  SHASS*  PROBNO* 
THAX*  OTNMN* 
UYLB1N*  UYBIN* 
UYRTIN*  UXLTIN* 
KMAX*  JL* 

RHOIN*  UY1N* 
BIG  Al ft ) •  BIG  Blft 
R  ZEROI ft) *BETA( ft) 

•  Y2TERM(ftft) • 

)•  VACANT  I lft) 

Al ftft )  • 
FMLYBIftft)  • 

LY2 I ftft ) • 
RlH(5ft)* 

Z2HI ftft ) * 


JBMIN*  JBMAX*  KBMIN* 
SMOMYl »  SMYTPT*  SMOMY* 
SUMKE*  SUMTE*  FIMPZ* 
OTNM*  CUTOFF*  N* 

SFW*  OTNMPft*  0TNM2* 
UYRB1N*  UXLblN*  UXblN* 
UXTIN*  UXRTIN*  KTM* 

J3*  JR*  JRM* 
UXIN*  KINTIft) » 

)•  RCP  V  Sift ) *E  ZERO (ft) • 
»  QCON I  ft  I  •  SAVI12). 
TAl Iftft) »  TA2  tftft ) • 


01  LI ftft ) • 
FMLYTIftft ) • 
LZ  X I  ft ft  > • 
R2HI55J* 
Z3HI ftft) • 


EPXIftft ) • 
FMLZBI ftft ) * 
LZ2 Iftft)* 
R3H(ftft ) • 
Z4Hlftft ) • 


A 

RXIftfttft)* 

RYI 55*5 ) * 

UNMXI ftfttft)* 

1 

UNMY I 5ft • ft ) • 

UNPXI ftfttft ) * 

UNPYI55.5) . 

FMASNMI 55* ft )  • 

2 

ENMI55.5)* 

EN(ftft*5) • 

PNM(ftft*ft) • 

PN(  ftft  *ft )  * 

3 

PONMXXIftft*9) • 

PQNMXY(ftft*ft)» 

PQNMYYI ftft *5) • 

PQNXXI55.5). 

4 

PONXYIftft*5 ) • 

PONYY 1 95*5 ) • 

RWA3Z( ftft.ft ) » 

RWA1Z I ftfttft  )  • 

ft 

RWAE3ZI9ft*ft)» 

RWAE1Z (55*5)* 

RH3ZI 5ft*ft ) • 

RH1Z I  ftfttft )  • 

6 

E3Z 1 5 ft • ft )  • 

ElZ(ftfttft)* 

RHO I ftft*ft) * 

VOL  (ftfttft)* 

7 

ETA(55*ft). 

AlY (ftfttft ) • 

A2Y I ftfttft ) * 

A3Y I  ftfttft )  » 

6 

A4Y  1  ftft*ft  )  * 

AlZ(ftft*ft) • 

A2Z(ftft*ft) • 

A3ZI ftfttft) • 

9 

A4Z I  ft ft • ft  )  • 

F1Y I ftft  *ft ) • 

F2YI55.5) * 

F3Y I  55*5 ) • 

A 

FAY  1 5 ft • ft  )  • 

Fill  5ft  *5)* 

F2ZI55 tft ) • 

F3Z I  ftft  •  ft )  • 

1 

F4Z 1  ftft  *5  )  • 

NTPT 155*5 ) » 

FMSNZIftfttft) • 

FMASNIftftvft ) • 

2 

FMNMXI 5ft  *ft  )  • 

FMNMYI ftft *ft) • 

FMNX(55*5) * 

FMNY 1 55*5 ) * 

4 

AW1 1 ftft *ft  )  • 

AW 2 1 ftft *5 )  • 

CMASSK  ftft  *5 )  • 

CMASS2(ftft *ft ) • 

5 

RXMI 5ft *ft )  • 

RYM(ftfttft) • 

RXZ (ftfttft)* 

RYZ  (ftfttft)* 

6 

011(55.5)* 

012(55*5) • 

Q22 (ftft*ft ) » 

OX(ftft*ft)» 

7 

Pll I ftft *ft )  • 

P12(ftft*ft) • 

P22(5ft*ft) • 

PXI ftft  *5 ) * 

• 

PQXI5ft*5)  • 

PQMXI ftft »ft)* 

VOI ftfttft ) 

COMMON  ICON*  LINCT*  LX1*  LX2*  LX3*  LX4*  LXft  * 

2  KC*  NOP A.  NE01T*  NS1G*  NMASS*  NOMP 

COMMON  AZQI ftft ) • TRAP VI ftft ) vTRAPYHI 101 ) »TRAP2HI  lOl).AYO(ftft) 

2*Y0ELTA(5ft ) 

COMMON  SI I ftft ) *52 1 101 ) 

COMMON  GMUI ftft ) *H I  ft ft ) • BET AH ( ftft ) *ALFAH( ftft ) * AMUBHtftft ) »AMUBMU(ftft ) » 
2  ICASEC55) 

DIMENSION  DUMPVI600) 

EQU I  VALENCE  I NREG  •  DUMP  V  ID) 


IF(KC.EQ.l)  GO  TO  20 
L-LX4 

READIMT)  I RX I J • L ) • 

2  FMASNMI J*L ) •  ENM( J»L) • 

3  PQNMYYI  J*L )  •  VOL(J*LJ'*  < 

4  PQMXI J.L) •  FMNMXI J*LI* 

5  A2Y I J*L ) •  A3YI J*L) * 

6  A3Z I J*L ) •  A4Z I J*L) * 

7-CMASS2I J*L) *  RXZIJ*L)* 

IF(LCOUNT.EO.KMAX)  REWIND 
LCOUNT-LCOUNT+1 
IF(NDPA*EQ.O)  RETURN 


RYI J»L) • 
■PNMIJ.L)* 
RHO  1 3  •  L )  t 
FMNMYI J*L)t 
A4Y I J*L ) • 

AW  1 1 J  •  L )  » 
RYZt J*LI* 

MT 


UNMXI J»L)  •  UNMY(JtL). 
PUNMXXI JtL ) •  PONMXY ( Jtl) * 


NTPT I J*L) * 
A1ZI J»L) * 
AW2 ( JtL )  t 
V0( J*L)» 


A1Y I J • L ) • 

A2Z I J»L ) • 
CMASS1I J*L) • 
J* JMIN* JMAX ) 
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WRITE! 10) ( 

2  UNMX ( J  t  L )  t 

3  PNMI JtL) • 

4  VOL( JtL ) • 

$  FMMMXI  J*L)  • 

6  NTPT( JtL) t 

7  A1Y ( JtL ) t 
6  A1Z( JtL) f 

9  AW1  (J.L). 


RX  (JtL) • 
UHMY ( JtL) t 
PQNMXX(JtL) t 
RHO (JtL)* 
FMNMYI JtL) • 


A1Y ( J*L )  t  A2Y( JtL) t 

A12( JtL) t  A22 ( JtL ) t 

AW1  ( JtL) t  AW2  (JtL) t 

VOC JtL) t 

IF  4 (KC+l)tNE*(KMAX-2) ) RE TURN 
END  FILE  10 
END  FILE  10 

ndmp-ndmp+i 

WRITE(6t 100 INDMPtPROBNOt TIME tN 

RETURN 

LCOUNT-1 

NBR-MOD(Nt2)+l 

60  TO  ( 21t22 ) tNBR 

MT*3 

60  TO  39 

MT«1 

1 F I NDPA ) 40 140 1 36 
WR1TE410)  (DUMPVt J) t J«lt600) 
END  FILE  10 


RY  (JtL) t 
FMASNM4 JtL) t 
PONMXY ( JtL ) t 
PQMX(JtL) t 


A3Y( JtL) t 
A3Z( JtL ) t 
CMASSK  JtUt 

J-JMlNt 


ENM( JtL ) t 
PONMYYt JtL)  t 


A4Y ( JtL ) t 
A42( JtL) t 
CMASS2I JtL) t 
JMAX ) 


40 

00  46  L>lt5 

42 

READ(MT) 

(RX(JtL)t 

RY( JtL) t 

UNMX( JtL ) t 

UNMYI JtL )t 

2  FMASNMI JtL ) 

t  ENMIJtDt 

PNM( JtL) t 

PONMXXI JtL) t 

PONMXY (JtL) t 

3  PONMYY(JtL) 

t  VOL (JtL)  t 

RHO( JtL) t 

4  PQMXI JtL ) t 

FMNMX4 JtL) t 

FMNMY(JtL) 

t  NTPT(JtL)t 

AlYIJtLlt 

5  A2Y ( JtL) t 

A3Y( JtL) t 

A4Y (JtL) t 

AlZ(JtL) t 

A2Z( JtL) t 

6  A32( JtL) t 

A4Z( JtL) t 

AWl (JtL) t 

AW2( JtL) t 

CMASSK  JtL )  t 

7  CMASS24 JtL ) 

t  RX2( JtL ) t 

RYZ< JtL) t 

V0( JtL) t 

J*JMlNt JMAX ) 

44 

IF( NOPA)450t 

450t45 

45 

WRITE(IO) ( 

RX  (JtL)t 

RY 

(JtL)  t 

2  UNMX (JtL)  • 

UNMYI  JtL)  * 

FMASNMI JtL)t 

ENMIJtDt 

3  PNM( JtL) t 

P0NMXX4 JtL) t 

PONMXYt JtL) t 

PONMYY( JtL) t 

4  VOL (JtL) t 

RHO( JtL ) t 

POMX(JtL) t 

5  FMMMXI JtL) t 

FMNMY(JtL) t 

6  NTPT( JtL) t 

7  A1Y ( JtL ) t 

A2Y( JtL)  t 

A3Y( JtL) t 

A4Y ( JtL ) t 

8  A1Z ( JtL) t 

A2Z( JtL) t 

A3Z( JtL) t 

A4Z( JtL ) t 

9  AW1  ( JtL) t 

AW2  (JtL) t 

CMASSK JtL) t 

CMASS2( JtL)  t 

A 

VO(JtL) 

t 

J*JMINt 

JMAX) 

450  LCOUNT-LCOUNT+1  . 

46  CONTINUE 

70  RETURN 

100  FORMAT (22H0A 

DUMP  HAS  BEEN 

TAKEN/ 12H00UMP  NUMBER t 16 t 

23H  IS  FROM  PR 

10BLEM  NUMBERtF7.2t8H 
END 


TIME  1 1PE 16*7 » 10H  ON  CYCLE 


I 
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SUBROUTINE  LINOUT 

COMMON  NREG*  RDTNM*  MOTION*  JBM1N*  JBMAX*  KBMIN* 

2  KBMAX*  TIME*  SMOM2I*  SMZTPT*  SMOMZ*  SMOMYl*  SMYTPT*  SMOMY* 

3  SENER1 •  S1ETPT*  SXETPT*  WORK*  SUMIE*  SUMKE*  SUMTE*  F1MPZ* 

4  F1MPY*  SNA SSI  •  SMSTPT*  SMASS*  PROBNO*  DTNM*  CUTOFF*  N* 

9  KBOT*  KTOP*  MAXN*  TMAX*  OTNMN*  SFW*  OTNMP3*  0TNM2* 

4  KB*  CUT1*  CUT 2*  UYLB1N*  UYBIN*  UYRBIN*  UXLBIN*  UXttIN. 

7  UXRBIN*  UYLTIN*  UYTIN*  UYRT1N*  UXLT1N.  UXTIN*  UXRTIN*  XTM* 

•  JMIN*  JMAX*  KMIN*  KMAX*  JL*  J3*  JR*  JRM* 

9  KT*  EIN*  RHOIN*  UYIN*  UXIN*  K1NT(5)» 

A  E  S 4 5 1 •  ALFA( 3 ) •  BIG  A(5)»  BIG  B(5)»  RCP  V  S(3)*E  ZERO ( 5 )  • 

2  TINY  A(5 )  •  TINY  B(5)*  R  ZERO(5> *BETA(5) •  OCON(9|*  SAV( 12) • 

4  KSV( 24) *  YTERM(99) •  Y2TERM495 ) •  TAXI 93) •  TA2(55)* 

9  FMLYR(  101) *  FMLZRUOll*  VACANT(13) 

COMMON  A( 55) •  DlL(55).  tPX(55». 

2  EPY (55) •  EPZC35)*  FMLYBt 39) •  FMLYTC39) •  FMLZBf 39 ) • 

3  FMLZT ( 95 ) »  LY1(55).  LY2(33)*  LZ1(55) •  LZ2(33)» 

4  PYI33) •  PZ( 55 ) *  R1H(55 ) •  R2H(55)*  R3H(55)* 

5  R4HI53).  Z1H(35) *  Z2HI55)*  Z3H(55)»  Z4H(35)» 

6  U2 ( 55*2 )  •  B 4 5 3 *4 ) 

COMMON 

A  RX(59*5 ) *  RY(55*5) •  UNMXC55»9)» 

1  UNMY(55*5)*  UNPX( 55*5 )  •  UNPY(55*5).  FHASNMI 53*3 ) . 

2  ENM(55*5 ) •  EN(55*5I*  PNM(55*5l*  PN(55*5)* 

3  PONMXX4 55*5 ) •  PONMXVf 55.3) •  PQNMYY(55*3) •  PQNXX<55*3). 

4  PONXY(55*5) •  PONYY(55*5l*  RWA3Z(55*5)»  RWA1Z(55*5)* 

5  RWAE3Z4 55*5 ) •  RWAE1Z ( 55 *5 ) •  RH3Z(55*5)»  RH1Z(95.5). 

4  E3Z (55*5 ) •  E1Z(35*5)  •  RHO(33*5).  VOU55.5). 

7  ETA (95*5 )  •  A1YC55*5)*  A2Y(55*5)»  A3Y(55*5). 

•  A4Y (35*5 )  •  A1Z(55*5) •  A2Z455*5)»  A3Z(55.5). 

9  A4Z(55*5)  •  F1YI55.5) •  F2V(55*5)*  F3Y(55*5)» 

A  F4Y455.3) •  F1Z(55.5).  F2Z(55*5)»  F3ZC55.5)* 

1  F4Z (55*5 )  •  NTPTC55.3).  FMSNZI55.5)*  FMASN(55»5)* 

2  FMNMXf 55*5 ) •  FMNMY(55*5)»  FMNX(55*5)*  FMNYC35.5) • 

4  AW1 (55*5 )  •  AW2 (55*5)*  CMASSl(35*5) •  CMASS2(55*5 ) * 

5  RXM(55*9 ) •  RYM(35*5) •  RXZ(55*5)»  RYZ(55*5)» 

4  011(55*5)*  012(95*5)*  Q22(55»5)»  QX(55*5)* 

7  Pll (55*5 ) •  P12(55*5).  P22(55*5)»  PX(55*5)» 

•  POX (55 *5 )  •  POMX(55*5 ) •  VO(55*5) 

COMMON  ICON*  LINCT*  LXl*  LX2*  LX3*  LX4*  LX3* 

2  KC*  NDPA*  NEDIT*  NSIG*  NMASS*  NOMP 
COMMON  AZO( 55 ) *TRAPV( 55 ) *TRAPVH( 101 ) *TRAPZH( 101 ) *AYO( 35 ) 

2*YOELTA(55) 

COMMON  Sl( 55) *S2 ( 101 ) 

COMMON  GMU(55 )  *H(  55)  *BETAH(  55 )  *ALFAH(55)  *AMUBH(55 )  *AMUBMU(35 )  • 

2  ICASE(55 ) 

DIMENSION  PTMASS( 55 ) 

C*»##» 

IF( LlNCT«GT« 1 )  GO  TO  100 

NBR«M0D(N*2)41 

SAV ( 7 ) "SORT ( SAV  ( 7 ) ) 

SAV ( • )  "SORT  ( SAV ( • ) ) 

GO  TO  ( 20*30) *NBR 
20  MT*1 

GO  TO  100 
30  MT*3 
100  L»LX4 
L2-LX5 

IF(SMASS«LT*0)  WRITE(4*110)  N. J*KC* (FMASN( I *L) *FMASNM( I *L) 
2*RWA1Z(I*L)*RWA1Z(I*L2)»RWA3Z(1*L)*RWA3Z(U1*L)*1>JMIN*JNAX) 

110  F0RMAT(3I6/(4E14*B) ) 
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300 

3000 

3001 

30010 

30011 

30012 

30013 

3002 

311 

312 


313 

316 


320 


IF  INEDIT) 327 *327 *3000 
IF ( KSV Ill) 130010*  3002*3001 
K.SVC  113  — KSVC  111 

READ  I 3  •  3003 )  J  JH1 N  •  J  JMAX  •  KKM I N  .  KKMAX 
IF I L1NCT-KMAX) 30012.30011.30011 
XSV (11) *KSV (111+1 
IF CLINCT-AKMIN) 327 .30013*30013 
IF  I LINCT-KKMAX 1311. 311*327 
JJMINbJHIN 
JJHAX* JMAX 

00  312  J*JJMIN*JJMAX 
PTMASS C  J | -2 • »FMSNZ I J*  L ) 

IFILINCT.LT. KMAX)  GO  TO  316 

DO  313  J*JJMIN* JJHAX 

RHO( J*L  )*0.0 

PN I J  *  L  )*0.0 

FHASNI J*L  1*0.0 

ETA( J.L  )*0.0 

EN( J*L  1*0.0 

RH32(J*L)*0.0 

RWA3ZU*L1*0.0 

E3Z I J*L ) *0. 

RWAE3ZI J*L) *0. 

VOLI J*L 1*0. 

Pll( J*L)*0. 

P12( J*L)*0. 

P22(J*L1*0. 

PX( J*L 1 *0. 

F1Y ( J*L 1*0. 

F2Y(J*L1*0. 

F3Y ( J*L 1*0. 

F4YI J*L1*0. 

F1Z( J*L1*0. 

F2Z( J*L1*0. 

F3Z( J*L>*0. 


F4ZI J*L1*0. 
Oil ( J*L1*0. 
012 ( J*L  1  *0. 
022 ( J*L 1 *0. 
QX( J»L)*0* 
AlY I J*L 1 *0. 
A2Y l J*L 1*0. 
A3Y (J*L 1 *0. 
A4Y ( J*L 1*0. 
A1Z I  J.L ) *0. 
A2Z ( J*L 1 *0. 
A3Z  C J*L 1*0. 
A4Z ( J*L 1 *0. 
AWl I  J.L ) *0. 


AW2(J*L)*0. 

CMASSK J.L)*0* 

CMASS2 ( J.L) *0. 

00  320  1  *JJMIN» JJMAX. 10 
JPRINT-I+9 

IF( JPRINT*GT. JJMAX)  JPRINT 
WRI TE(6* 1 ) 

1  KSVI 14) • 


2 

3 

k 

3 


VOL(J.L)* 
UNMX( J*L)  • 
EIZ(J.L). 


JJHAX 

PROBNO*  TIME*  DTNH* 

KSVI 131*  SAVI 7) *  KSVI 16) •  KSV(17)* 

I  .  RXIJ.L).  RY (J.L) • 

RHO  C  J.L) *  ETA(J.L).  EN( J.L) * 

UNHY(J.L)*  FHASNI J.L ) •  RH1ZIJ.L). 

RWAE1ZI J.L )  •  FHNXIJ.L).  FMNYIJ.L). 


218 


SAVI6)* 

J.  L1NCT.N. 
RWA1ZI J.L) . 
PTMASS C J). 


*  RH3Z ( JtL ) t  RMA3Z4 JtL)  •  E3Z(JtL)t  RMAE3Z(JtL)t  PlKJiU* 

7  011 (J»L) •  A2Y( JtL ) t  A2Z  ( JtL) t  AMI  (JtL)t  F1Y( JtL) t 

•  F1Z( JtL) t  P12 ( JtL ) t  Q12( JtL) t  A1Y( JtL) t  AlZ(JtL)t 

9  AM 2  (JtL) t  F2Y( JtL) t  F2Z(JtL)t  P22(JtL)t  022(JtL)t 

A  A4Y( JtL) t  A4Z( JtL)  t  CMASSK JtL) t  F3Y ( JtL ) t  F3*(JtL)t 

1  PX( JtL) t  QX( JtL )  t  A3Y( JtL) t  A3Z(JtL)t  CHA^S2(JtL)« 

2  F4YI JtL) t  F4Z ( JtL ) t  J*ItJPRINT) 

327  MRITE(MT)  (RX(JtL)t  RY( JtL) t  UNPX(JtL)t  UNPY(JtL)t 

2  FMA5N( JtL) t  EN( JtL) t  PN(JtL)t  PQNXX(JtL)t  PUNXY(JtL)t 

3  PQNYY< JtL) t  VOL ( JtL ) t  RHO( JtL) t 

4  PQX( JtL) t  FMNX( JtL)  t  FMNY (JtL) t  NTPT ( JtL) t  A1Y ( JtL) t 

5  A2Y ( JtL ) t  A3Y( JtL) t  A4YI JtL) t  AlZ(JtL)t  A2Z(JtL)t 

6  A3Z( JtL) t  A4Z ( JtL) t  AW1 (JtL) t  AM2( JtL) t  CMASS1 ( JtL ) i 

7  CMASS2i JtL) t  RXZ ( JtL ) t  RYZ ( JtL) t  VO(JtL)t  J* JMINt JMAX) 

340  IF(LlNCT-KMAX)370t350t350 

350  SUMTE-SUMIE+SUMKE 
REMIND  NT 

IF ( (NDPA.GT.O)  .OR.(NEDIT.LT.O) )  GO  TO  353 
IF (NEDITtEQtO)  GO  TO  363 

355  MRITE(6t2 )  PROBNOt  TlNEt  DTNMt 

1  KSV( 14) t  K$V( 15 ) t  SAV( 7) t  KSV(16)t  KSV(17)t  SAV(B) 

360  MRITE(6t6) 

MRITE(6t7)SUMlEtSIETPT»SMYTPT tFIMPY  tSMOMYl tSMOMYtSMSTPT  tSUMKE 
1 tSKETPTtSMZTPT tFIMPZ tSMOMZ I tSHOHZtSMASSI tSUMTEtWORKtSMASStSENERI 

C - TO  INSURE  THAT  ENERGY  CHECKS  PRINT  OUT 

DO  365  L*lt3 

365  MRITE(6t9) 

RETURN 

370  1F(KC«GT#KT)G0  TO  3B0 

366  LINCT ■LINCT+1 
RETURN 

310  LX4*LX5 
LX5*LX1 
LX1-LX2 
LINCT-LINCT+1 
GO  TO  100 

1  FORMAT ( 12H1  PROBLEM-  F7.2 t3X6HTIME«  E17.9t3X4HDT*  E17.9.3X 


2  6HSH 

J*  I3t3X6HSH  K* 

I3t3X7HSH  DT*  E17.9/ 

3  72X6HSS  J*  I3t3X6HSS 

K*  1 3»3X7HSS  DT*  E17 

#9// 

2U9H 

Y 

Z 

VOL 

RHO 

3 

ETA 

E 

*  J*  K*CYCLE*/ 

4112H 

U(N~l/2 ) 

V4N-1/2) 

ZONE  MASS 

RttlO 

5 

RMA10 

E10 

RMAE10/ 

6112H 

MOM  Y 

MOM  Z 

PTt  MASS 

RH30 

7 

,  RMA30 

E30 

RMAE30// 

B109H 

Pll 

Oil 

AiY 

All 

9 

AMI 

FiY 

FU/ 

A109H 

P12 

Q12 

A2Y 

All 

1 

AM2 

F2Y 

F2Z/ 

2109H 

P22 

022 

A3Y 

A3  Z 

3 

MP1 

F3Y 

F3Z/ 

4109H 

PX 

QX 

A4Y 

A4Z 

5 

MP2 

FAY 

F4Z// 

6  (10(6E17«9t3H  «tI3t 

lH*t I 3tlH*t I5t 1H*/ 

7  7E17 

•9/7E17#9//7El7« 

9/7El7t9/7E17.9/7El7t 

9///))) 

2  FORMAT ( 12H0  PROBLEM*  F7.2 t3X6HTlME*  E17.9t3X4HDT*  E17#9t3X 

2  6HSH  J*  1 3 »3X6HSH  X*  I3i3X7HSH  DT*  E17t9/ 

3  72X6HSS  J*  I3t3X6HSS  K*  I3t3X7HSS  DT*  E17.9//) 

6  FORMAT ( iHOt9Xt5HSUMIEtllX#6HSlETPTtlOXt6HSMXTPTtlOXt5HFIMPXtllX 
1 t6HSM0MXI 1 10X t3HSM0MX  1 11X t6H$MSTPT/lOXt5HSUMKE  t  HXt6HSKETPT 1 10X 
2t6HSMYTPTtlOXt5HFIMPYtllXt6HSMOMYItlOXt5HSMOMYtllXt6HSMASSI/10X 
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3 • 5HSUMTE .  1 1 X  ♦ 4HW0RK* 76X • 5HSMASS/ 26X • 6HSENER 1 / ) 

7  FORMAT < 7X#  7E14.8/7X  7E16.8/7X.  2E16.8»64Xt  E16.8/23X.  E16.8) 

9  FORMAT (1H  ) 

3003  FORMAT (41 6) 
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SUBROUTINE  MASS 

COMMON  NREG*  RDTNM*  MOTION*  JBMIN*  JBMAX*  KBMIN* 

2  KBMAX*  TIME*  SMOMZI*  SM2TPT*  SMOM2*  SMOMYI*  SMYTPT*  SMUMY* 

3  SENERI •  SIETPT •  SKETPT •  WORK*  SUMIE*  SUMKE*  SUMTE*  FIMPZ* 

4  FIMPY.  SMASSI •  SMSTPT*  SMASS*  PROBNO*  DTNM*  CUTOFF*  N* 

3  KBOT*  KTOP*  MAXN*  TMAX*  OTNMN*  SFw*  DTNMP5*  0TNM2* 

4  KB*  CUT1*  CUT2*  UYLBIN*  UYBIN*  UYRBIN*  UXLBIN*  UXOlN* 

7  UXRBIN*  UYLTIN*  UYTIN*  UYRTIN*  UXLTIN*  UXTIN*  UXRTIN*  KTM* 

•  JMIN*  JMAX*  KMIN*  KM AX*  JL*  J3*  JR*  JRM* 

9  KT*  EIN*  RHOIN*  UYIN*  UXIN*  KINT(5)» 

A  E  SCSI •  ALFA( 5 ) •  BIG  A(5).  BIG  B(5)»  RCP  V  S(5)*E  ZERO(5).  . 
2  TINY  A(  5 )  •  TINY  B< 3 1 »  R  ZERO! 5 ) *BETA( 5 ) •  QCON(5)»  SAV( 12 ) • 

4  KSVI24 ) *  YTERMI55) *  Y2TERMI 55 ) »  TA1(55)*  TA2(53)* 

5  FMLYRt 101) t  FMLZR(lOl)*  VACANT  1 15) 

COMMON  A(55 ) •  DlL(55)»  EPX(55)* 

2  EPY (55 ) *  EPZ ( 55 ) •  FMLYBI55 ) •  FMLYT(55)»  FMLZB(55)* 

3  FMLZT (55 ) •  LY1 ( 55  )  •  LY2(55)»  L21(55)t  LZ2(55)» 

4  PY  ( 55)  •  P2(  55 )  •  R1HI55)*  R2H(554-*-^  R3HI55)* 

5  R4H ( 55 )  •  Z1H ( 55 ) »  Z2H(55),»  Z3H(55)»  Z4H(55)» 

6  W2(55.2)*  B(55*4) 

COMMON 

A  RX(55*5 ) »  RY( 55  *5) •  UNMX(55*5)* 

1  UNMY(55*5) •  UNPX(55*5)*  UNPY(55*5)*  FMASNM(55*5 ) • 

2  ENM(55*5 ) •  EN(55*5)*  PNM(55*5)*  PN(55*5)* 

3  PQMMXX( 55*5 ) •  PONMXY(55*5 ) *  PONMYY(55*5) »  PONXX(55*5)* 

4  PQNXY(55*5 ) •  PONYY( 55*5)*  RWA3Z(55*5)*  RWA1Z(55*5)» 

5  RWAE3Z(55*5 )  •  RWAEU(55*5)»  RH3Z(53*5)*  RH1Z(55*5)» 

6  E3Z(55*5)»  ElZ(55f 5) •  RHO(55*5)»  VOL(55*5). 

7  ETA (55*5 ) •  A1Y(55*>)*  A2Y(55*5)»  A3Y(55»5)* 

•  A4Y(55»5) *  A1Z( 55*5) *  A2Z(55*5)»  A3Z(55*5)* 

9  A4Z (55*5 ) •  FIYI55.5)*  F2Y(55*5)*  F3Y(55*5)* 

A  F4Y (55*5 ) •  F1Z(55*5)*  F2Z(55*5)»  F3Z(55»5)* 

1  F4Z (55*5 ) •  NTPT ( 55*5 ) •  FMSNZ(55*5)»  FMASN(55*5). 

2  FMMMX(55*5 ) •  FMNMYI55.5)*  FMNX(55»5)»  FMNY(55*5)» 

4  AW1 ( 55*5 ) •  AW2(55*5) *  CM AS SI (55.5) •  CMAS52(55*5 ) . 

5  RXM( 55*5 ) •  RYM( 55*5 ) •  RXZ(55*5)»  RYZ(55.5)*_ 

6  011(55*5)*  012(55*5)*  022(55*5)*  OX(55*5)» 

7  Pll ( 55*5 ) •  P12 (55*5)*  P22(55*5)*  PX(55*5)» 

B  POX (55 *5) •  PQMX(53*5 ) *  V0(55*5) 

COMMON  ICON*  LINCT*  LXl*  LX2 »  LX3*  LX4*  LX5  * 

2  KC*  NOPA*  NEDIT*  NSIG*  NM ASS.  NDMP 

COMMON  AZO( 55 ) *TRAPV( 55) *TRAPYH( 101 ) *TRAPZH( 101 ) *AYO( 55 ) 

2  *YDELTA( 55 ) 

COMMON  SI <  55 ) »S2 ( 101 ) 

COMMON  GMU(55) *H( 55 ) *BETAH( 55 ) *ALFAH( 55 ) *AMUBH(55 ) *AMUBMU(55 ) • 

2  ICASE( 55 ) 

C*M#f 

L*LX1 

L2«LX2 

00  !•  Ja JMIN* JR 

FMASN(J*L)«FMASNM( J*L)^(RWA3Z( J.L)-RWA3Z( J+1*L)-RWA1Z(J*L)4 
1  RWA1Z( J*L2) )*DTNM 

IF(FMASN( J*L) ) 15*15*18 
15  NE01T-1 
NSIG-4 

17  WRITE(4*77) J*FMASN( J*L) 

FMASNI  J*L )al* 

18  CONTINUE 
RETURN 

FORMAT (7HOFOR  J-.I6.8H  AND  K^2*10H  THE  MASSa*lPEl6*7«6H  ERROR) 
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SUBROUTINE  NEWU 
COMMON 

NREG* 

ROTNM* 

MOTION* 

JBM1N* 

JBMAX*  XBMIN, 

2 

XBMAX* 

TIME* 

SMOMZI* 

SMZTPT* 

SMOMZ  » 

SMOMY 1 • 

SMYTPT  »  SMOMY* 

3 

SENERI • 

SIETPT • 

SXETPT, 

WORK* 

SUMIE* 

SUMKE* 

SUMTE*  F IMPZ* 

4 

FIMPY* 

SMASSl • 

SMSTPT  * 

SMASS* 

PROBNO* 

DTNM* 

CUTOFF,  N* 

5 

XBOT* 

XTOP* 

MAXN* 

TMAX* 

OTNMN* 

SFW* 

DTNMP5 ,  0TNM2* 

6 

KB* 

CUT  1* 

CUT2* 

UYLBIN* 

UYB1N* 

UYRBIN* 

UXLB1N*  UXblN. 

7 

UXRB1N* 

UYLT1N* 

UYTIN* 

UYRT1N* 

UXLT1N* 

UXT1N* 

UXRTIN.  KTM, 

8 

JM1N* 

JMAX  * 

XMIN* 

XMAX* 

JL. 

J3* 

JR*  JRM* 

9 

XT* 

E1N* 

RHOIN*  UYI N* 

UX1N, 

KINT ( 5  )  • 

A 

E  S(  5 )  • 

ALFA( 5 )  » 

BIG 

A(  5  )  *  BIG  B  ( 5 

)*  RCP  V  SI 

5  )  , t  ZERO ( 5 

2 

TINY  A(5)» 

TINY  B(5), 

R  ZEROt 5 ) *BETA( 5 ) 

•  QCON ( 5 ) t 

SAV( 12)» 

4 

XSV ( 24 ) * 

YTERM(55  > 

• 

Y2TERMI55) » 

TA1(55)  • 

TA2 ( 55 )  • 

5 

FMLYR* 101) 

•  FMLZR ( 101 )  • 

VACANT (15) 

COMMON 

A( 55 )  • 

OILI55)  • 

EPX ( 55 ) * 

2 

EPY ( 55 )  • 

EPZ ( 55  )  * 

FMLYB( 55 ) • 

FMLYT ( 55  )  • 

FMLZB ( 55  )  * 

3 

FMLZT ( 55 ) • 

LY1I55)* 

LY2< 55 )  • 

LZ 1(55)  • 

LZ2I55) » 

4 

PY ( 55 ) * 

PZ( 55 )  * 

R1H(55), 

R2H( 55 )  • 

R3H ( 55 ) * 

5 

R4H ( 55 )  • 

Z1H ( 55 ) * 

Z2H( 55 ) » 

Z3HI55)  • 

Z  4H( 5  5 )  • 

6 

U2(55*2)  * 

8(55*4) 

COMMON 

A 

RXI55.5) * 

RY( 55,5 )  • 

UNMX (55,5), 

1 

UNMY(55*5)» 

UNPX(55*5) * 

UNPY ( 55*5 ) , 

FMASNM(55  *5 ) , 

2 

ENM( 55  *5 ) • 

EN ( 55  *5  )  * 

PNM ( 55*5 ) , 

PN( 55,5) * 

3 

PONMXXI 55*5 ) * 

PONMXY (55*5)* 

PONMYY (55*5), 

PQNXX ( 55,5), 

4 

PONXY ( 55*5 ) • 

PONYY(55*5) • 

RWA3Z (55*5), 

RMA1Z (55,5) , 

5 

RWAE3ZI 55*5 ) • 

RWAE1Z (55*5) * 

RH3Z (55,5) • 

RH1Z ( 55 ,5 ) • 

6 

E3Z (55*5 ) » 

E1ZI55.5) . 

RHO(55,5), 

VOL (55,5) , 

7 

ETA ( 55  *5  ) » 

A1Y (55,5 )  • 

A2Y (55,5), 

A3Y ( 55,5 ) , 

8 

A4Y (55*5) • 

A1Z (55*5) • 

A2Z (55,5), 

A3Z (55,5)  • 

9 

A4Z (55*5)* 

F1Y (55*5 )  » 

F2Y (55,5), 

F3Y ( 55,5 ) » 

A 

F4Y (55*5)* 

F1Z (55*5 )  » 

F2Z ( 55 ,5 )  • 

F3Z ( 55,5 ) , 

1 

F4Z ( 55  *5 ) » 

NTPT(55*5)  » 

FMSNZ (55*5), 

FMASN (55,5) , 

2 

FMNMX (55*5)* 

FMNMY (55*5), 

FMNXI 55 ,5 ) , 

FMNY (55,5), 

4 

AW1 (55*5 ) • 

AW2 ( 55*5  )  * 

CMASS1 (55,5), 

CMASS2 (55*5), 

5 

RXM( 55  *5 ) • 

RYM( 55*5)  * 

RXZ (55,5), 

RYZ (55,5), 

6 

011(55*5)* 

012(55,5)  , 

022(55,5) , 

0X155,5) , 

7 

8 

PI 1 ( 55 *5  )  • 
PQX(55*5 ) t 

P12 ( 55*5 ) * 

PQMX (55*5), 

P22 (55,5), 

V0( 55 ,5 ) 

PX( 55,5) , 

COMMON  ICON* 

2  XC*  NOP A* 

LINCT *  LX1, 
NE01T*  NSIG 

LX2,  LX3, 

,  NMASS*  NDMP 

i  LX4,  LX5, 

COMMON  AZQ(  55  )  *TRAPV(  55  )  *TRAPYH(  101 )  *TRAPZH(  101 )  *  AYQ(  55 > 

2,YDELTA(55) 

COMMON  S1(55)*S2( 101) 

COMMON  GMU( £5 ) *H( 55 ) » BET AH ( 55 ) *ALFAH ( 55 ) » AMUBH(  55 ) »AMUBMU( 55 > • 
2  ICASE ( 55  ) 

L-LX1 

L2*LX2 

L5«LX5 

TFXX-O. 

TFXY*0* 

00  400  J*JMIN»JMAX 
IF(JMIN-J)  100*10 1 10 
10  YRHO«YTERM( J)*RHO( J»l) 

Y2RHO*Y2TERM( J ) *RHO ( J*L ) 

CMASS1 ( J • LI * AW 1 1 J * L ) *YRHO 

CMASS2 ( J  *  L ) « Aw2 ( J  *  L ) *Y2RH0 

FMSNZ ( J  *  L  )  ■ • 5* ( CMASS2 ( J  *  L ) +CMASS 2 ( J » L 5 ) ) 

CUT0N*CUT2»FMSNZ( J»L)  j 

FMNX( J»L)*0.0 
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UNPXl J»L)«0.0 

IF ( (KC.GE.KBOT).AND.(KC.LE.KTOP) )G0  TO  410 
60  TO  (15. 20. 15). MOTION 
15  FXLY  *0*0 

FXMST-.  25* ( RWA12 ( J  *L ) +RWA 1Z ( J  *L2  ))*TA2(J) 

FXTY-FXMST  * ( UNMY ( J  »  L ) +UNMY ( J  »  L2  )) 

FXMSR«.125*(RWA3Z( J+l  ,L ) +RWA3Z ( J+1.L5  )) 

FXRY-FXMSR  *(UNMY( J.L)*UNMY( J+l.L))  ‘ 

FXMSB-.  25* ( RWA1Z ( J »L ) +RWA1Z ( J »L5  ))*TA2(J) 

FXBY-FXMSB  *  ( UNMY  <  J.L ) -MJNMY  (  J.L5  )  ) 

TFXY-FXLY-FXRY+FXTY-FX0Y 
20  FM0MCH*DTNM*(F2Z( J.L ) *F3Z ( J *L5 ) +TFXY ) 

IF( ABS(FMOMCH)-CUTON) 35*35*30 
30  FMN Y (J.L) *FMNMY (J.L) +FMOMCH 
GO  TO  40 

35  FMNY ( J*L)»FMNMY( J.L) 

40  UNPY (J»L)*FMNY(J»L) /FMSNZ I J  *L )— UNMY (J.L) 

GO  TO  400 

100  IF( J-JMAX )  110*300*300 

110  YRHO*YTERM( J)*RHO( J*L) 

Y2RHO»Y2TERM( J)*RHO( J*L ) 

CMASSli  J*U«AWl(  J*L)«YRHO 
CMASS2 ( J • L ) «AW2 ( J  *L ) *Y2RHO 

FMSNZ ( J • L ) - • 5* ( CMASS2 ( J » L5  » +CMASS 1 ( J-l . L5 ) +CMASS1 ( J-l *L) +CMASS2 ( J • 
2  L)> 

GO  TO  ( 111*115*111) .MOTION 

111  FXMSL«.125*(RWA3Z(J.L)+RWA3Z( J-1.L)*RWA3Z( J-1.L5  I+RWA3Z 1J.L5  )) 
FXLX*FXMSL  * (UNMX ( J»L)*UNMX ( J-1*L  > ) 

FXLY-FXMSL  *  ( UNMY ( J*L )*UNMY ( J-l .L ) ) 

FXMST*.25*(TA1( J-1)*(RWA1Z( J-1.L)+RWA1Z( J-1.L2) )*TA2( J)* 

2  (RWA1ZI  J.LJ+RWA1ZC  J.L2M) 

-  FXTX*FXMST  * ( UNMX ( J.L ) +UNMX ( J  »L2  )) 

FXTY-FXMST  * ( UNMY ( J.D+UNMY ( J.L2  )> 

FXMSR«* 125* (RWA3Z ( J*L ) +RWA3Z( J*1 »L) +RWA3Z ( J+1.L5  )*RWA3Z ( J.L5  I ) 
FXRX»FXMSR  * ( UNMX ( J.D+UNMX (J+l.L) ) 

FXRY»FXMSR  *  1 UNMY (J.L) +UNMY ( J+ 1  *  L ) ) 

FXMSB«.25*(TA1( J-l )»(RWA1Z( J-l *L5 )+RWAlZ ( J-l.L) )+TA2( J)* 

2  (RWA1Z(J*L) +RWA1Z ( J . L5 ) ) ) 

FXBX-FXMSB  *  ( UNMX  (J.L) +UNMX  ( J  » L5  )) 

FXBY-FXMSB  *(UNMY  <  J.LJ+UNMY  (  J*L5  )) 

TFXX«FXLX-FXRX+FXTX-FXBX 
TFXY*FXLY-FXRY+FXTY-FXBY 
115  CUTON«CUT2*FMSNZ( J.L) 

FM0MCH«DTNM*(F1Y( J-1.L)+F2Y( J.L'+F3Y( J.L5)+F4Y( J-l *L5 ) +TFXX ) 

I F( ABS ( FMOMCH ) -CUT ON )  125*125*120 
120  FMNX I J  *  L ) *FMNMX ( J  »  L ) +FMOMCH 
GO  TO  130 

125  FMNX (J.L) s FMNMX ( J  » L ) 

130  FM0MCH«DTNM*(F1Z( J-l.L )+F2Z( J.L >+F3Z(J.L5 )+F4Z( J-l *L5)+TFXY> 

IF(ABS(FMOMCH)-CUTON)  145*145*140 
140  FMNY ( J»L)«FMNMY(  J.D+FMOMCH 
GO  TO  150 

145  FMNY (J.L) *FMNMY (J.L) 

150  UNPX ( J  *  L ) *  FMNX ( J  *L ) /FMSNZ ( J*L )-UNMX( J*L ) 

UNPY (J.L)*  FMNY (J.L ) /FMSNZ (J.L) -UNMY (J.L) 

GO  TO  400 

300  FMSNZ ( J.L ) *  «5* ( CM A SSI ( J-l *L ) +CMASS1 ( J-l »  L5 ) ) 

GO  TO  (301.305.301) .MOTION 

301  FXMSL«.125*(RWA3Z( J-l »L ) +RWA3Z ( J-1.L5  )) 

FXLX*FXMSL  * ( UNMX (J.L) +UNMX ( J- 1 »  L ) ) 

FXLY*FXMSL  *( UNMY ( J.L ) +UNMY ( J-l »L ) ) 
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FXMST*.  23*(RWA1Z ( J-1*L)+RWA1Z( J-1»L2  ))*TA1U-1) 
FXTX-FXHST  *IUNMX<  J*L)+UNMX<  J.L2  ) ) 

FXTY*FXMST  * ( UNMY ( J * L ) +UNMY ( J  *  L2  )) 

FXRX-0.0 

FXRY*0*0 

FXMSB*.  25»(RWA12(J-l*LI<fRKAU( J-1.L5  )|*TA1(J-1) 
FXBX«FXMSB  *IUNMX< J*LM-UNMX( J.L5  )) 

FXBY-FXMSB  * ( UNMY I J  *  L ) +UNMY ( J • LB  )) 

TFXX-FXLX-FXRX+FXTX-FXBX 

tfxy*fxly-fxry+fxty-fxby 

303  CUTON*CUT2*FMSNZ ( J»L) 

FMNX( J*L)»0*0 

FMLYRI KC) ■-  F4Y<J-1*L5>-F1Y<J-1*U-TFXX 
FMOMCH«DTNM*  <  FMLZR ( KC )  +F4Z < J-l * L  5 ) +F 12 1 J- 1 • L> ♦TFXY ) 
IFCABS(FMOMCH)-CJTON)  315*315.310 
310  FMNYI  J.U-FMNMYI  J.U+FMOMCH 
GO  TO  320 

315  FMNY(J*L)«FMNHY( J.U 
320  UNPX(J*U-0*0 

UNPY ( J»L)*  FMN Y ( J  *  L ) / FM5NZ ( J  »  L ) -UNMY (  J  *  t ) 

400  CONTINUE 
RETURN 

410  FMNYI J*L)a0«0 
UNPY (J.L )*0*0 
GO  TO  400 


c 


c 


c 

c 


subroutine 

COMMON 
2  XBMAX* 
SENER1* 
FIMPY* 

KBOT  • 

KBt 

UXRBIN* 
JMIN* 

XT* 

E  S(5). 

TINY  A(5)» 
KSV ( 24 ) * 
FMLYR(lOl). 
COMMON 
2  EPY ( 55 ) • 
FMLZT ( 55 ) • 
PY(55)* 
R4H(55)* 
U2(55»2) » 
COMMON 


REDGEN 

NR EG*  RDTNM* 
TIME*  SMOMZI*  SMZTPT* 
SIETPT •  SKETPT •  WORK* 
SMASSI*  SMSTPT *  SMASS* 
KTOP*  MAXN*  TMAX* 
CUT  1  *  CUT2*  UYLBIN* 
UYLTIN*  UYT1N*  UYRTIN* 
JMAX*  KMIN*  ICMAX* 

EIN*  _ RHOIN* 

ALFAC5I*  Bl'G  A(5>» 
TINY  6(5)  •  R 
YTERMl 55 ) » 

FMLZR( 101 ) • 


d  *l 

MOTION 

SMOMZ* 

SUMIE* 

PROBNO 

OTNMN* 

UYBIN* 

UXLTIN 

JL# 

UY  IN* 
BIG  B( 


JBMAX* 
SMYTPT • 
SUMTt* 
CUTOFF* 
0TNMP5* 
UXLB1N* 
UXRT1N* 
JR* 


EPZ ( 55 ) * 
LY1 ( 55 ) • 
PZ( 55 ) • 
Z1H ( 55 ) • 
B ( 55  *4 ) 


ZERO( 5) *BETA(5 
Y2TERM(55 ) • 
VACANT (15 } 

A  ( 5  5  >  * 

FMLYB( 55 )  * 
LY2C55 ) • 
R1HI55 ) • 
Z2H(55 )  • 


JBMIN* 

SMOMYl  • 

SUMKE* 

OTNM* 

SFW* 

UYRBIN* 

UXTIN* 

J3* 

UXIN*  K1MT(5 ) • 

5)*  RCP  V  S(5 ) *E  ZERO(5) • 
)•  OCON ( 5 )  •  SAV( 12 ) • 


XBMlN* 

SMOMY* 

FIMPZ* 

in* 

OTNM2* 
UXttlN* 
KTM* 
JRM* 


TA1(55) • 

DILI  55 1 • 
FMLYTI55) • 
LZK55I* 
R2H( 55 )  • 
Z3H( 55 )  • 


TA2 (35) • 

EPX(55) • 
FMLZB( 55 ) • 
LZ2(55) • 
R3H( 55 ) » 
Z4H( 55 ) • 


A 

1  UNMY (55*5)* 

2  ENM( 55 *5 ) • 

3  PQNMXX(55*5 ) • 

4  PQNXY ( 55*5 )  • 

5  RWAE3Z(55*5) • 

6  E3Z (55*5)* 

7  ETA(55*5) • 

8  A4Y (55*5)* 

,9  A4Z (55*5)* 

A  F4Y (55*5) * 

1  F4Z (55*5)* 

2  FMNMX(55*5) • 

4  AW1 (55*5 ) • 

5  RXM(55»5 ) • 

6  011(55*5). 

7  Pll (55*5 ) • 


RX(55*5) • 
UNPX(55»5)» 

EN ( 55*5 ) • 
PONMXY (55*5)* 
PONYY (55*5)* 
RWAE1Z (55*5)* 
E1Z ( 55  *5 ) • 

A1Y (55*5)* 

A1Z (55*5) • 
F1Y(55*5). 

F1Z ( 55  *5 ) • 
NTPT (55*5)* 
FMNMY (55*5) • 
AW2(55*5) • 
RYM( 55  *5 ) • 
012(55*5) » 
P12(55*5) • 


RY( 55 *5 )  • 
UNPY(55*5)  • 
PNM( 55 *5 )  * 
PONMYY (55*5)* 
RWA3Z ( 55  *5 )  » 
RH3Z( 55*5) * 
RH0(55  *5 )  • 

A2Y (55*5)* 
A2Z(55*5)  • 

F2Y (55 »5 )  • 
F2Z(55*5). 
FMSNZ (55*5)* 
FMNX( 55*5) » 
CMASS1 (55*5) • 
RXZ( 55  *5 )  • 
022(55*5)* 
P22(55*5)* 


UNMX ( 55*5 )  • 
FMASNM(55*5 )  • 
PN( 55*5 ) • 
POMXX(55*5 )  • 
RWA1Z ( 55*3)* 
RH1Z(55*5) * 
VOL (55 *5 )  • 

A3Y ( 55*5  )  * 
A3Z(55*3 )  • 
F3Y(55.5 )  • 
F3Z( 55*5 )  • 
FMASN( 55  *5 )  • 
FMNY(55*5) * 
CMASS2(55»5 )  • 
RYZ(55*5 )  • 

QX( 55*5 ) * 

PX( 55*5 )  • 


8  PQX( 55*5)*  PQMX( 55*5 ) •  V0(55*5) 

COMMON  ICON*  LINCT*  LXl*  LX2 *  LX3*  LX4*  LX5* 

2  KC*  NOPA*  NEOIT*  NSIG*  NMASS*  NDMP 
COMMON  AZQ( 55 )  *TRAPV (55) *TRAPYH( 101 ) *TRAPZH( 101 ) *AYO( 55 ) 

2*Y0ELTA(55) 

COMMON  Sl( 55) »S2( 10 1 1 

COMMON  GMU ( 55 ) *H ( 55 ) . BETAH ( 55 ) * ALFAH ( 55 )  * AMUBH( 55 ) * AMUBMU( 55 ) » 


2  I CASE ( 55 ) 


DIMENSION  DUMPVI600) 

DIMENSION  TX(  55 ) *  TY(lOl)*  TITLE(9) 
DIMENSION  YDB( 55 ) 

*• 

EQUIVALENCE (NREG.DUMPV(l)) 

EQUIVALENCE  ( YDB( 1 ) *FMLYB( 1 ) ) 

•• 

INTEGER  P*  0*  R 

## 

1  FORMAT  (9A8) 

2  FORMAT  (6E12*5) 

3  FORMAT  ( 1216) 

FORMAT ( I6*2E12«5) 

5  FORMAT  (216*  5E12.5  /  (6E12.5)) 
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4 


6 


FORMAT (3(2I6*E12«5)) 

51  FORMAT  (15HOPROBLEM  NUMBER  »  F7*2) 

52  FORMAT ( 1H  / 

272H  KSV1  KSV2  KSV3  KSV4  KSV5  KSV6  KSV7  KSV8  KSV9  KSV10  KS 

3V11  KSV12/12I6) 

53  FORMAT < 1H  / 

293H  SAVl  SAV2  SAV3  SAVA 

3  SAV5  SAV6/6E17.9) 

54  FORMAT (1H1/ 

224H  INPUT  FOR  REGION  NUMBER*  13). 

55  FORMAT C 1H  / 

241H  VZ  RHOIN  EIN/3E17.9) 

56  FORMAT I1H  / 

276H  JBOT  JTOP  KBOT  KTOP  KBUG  MOTION  KFACE1  KFACE2  KFACE3 

3  KFACE4  KFACE5/5I6*6I8) 

60  FORMAT (1H  / 

225H  UXIN  UYIN/2E17.9) 

62  FORMAT ( 1H  / 

2  8H  DTNM/E17.9) 

64  FORMAT (1H  / 

218H  MAXN  TIME  MAX/I6*E17*9 ) 

65  FORMAT (1H  / 

210H  CUTOFF/E17.9) 

70  FORMAT ( 14H1  PROBLEM-  F7*2*5X6HTIME-  E17.9.5X9HOELTA  T-  E17.9* 

B  1H  // 

21I9H  Y  Z  VOL  RHO 

3  ETA  E  *  J#  X*CYCLE*/ 

41I2H  UIN-1/2)  VlN-1/2 )  ZONE  MASS  MP1 

5  AW I  PQNXX  PQNYY  / 

6112H  MOM  Y  MOM  Z  PT.  MASS  MP2 

7  AW2  PQNXY  POX  // 

6  13 ( 6E17.9  *3H  *.I3*1H**I3.1H**15*1H»/7E17.9/7E17.9//) 

7  6E17*9*3H  **I3*1H**I3*1H**I5*IH#/7E17.9/7E17.9) 

74  FORMAT  (17*  6E16.7  /  7X  6E16.7/) 

75  FORMAT  ( 1H0  9X  6HSENERI  10X  6HSMASSI  10X  6HSM0MY I  10X  6HSM0MZ 1 1 

76  FORMAT  (7X  6E16.7) 

77  FORMAT  (7HOFOR  J«  16*  7H  AND  K-  16*  iOH  THE  MASS-  E16«7*  6H  ERROR) 

78  FORMAT <1H  / 

253H  U( LEFT  BOTTOM)  U(ttOTTOM)  Ut RIGHT  BOTTOM)/ 

353H  V  V  V  // 

4 (3E17.9 ) ) 

79  FORMAT (1H  / 

250H  UC LEFT  TOP)  UITOP)  UIRIGHT  TOP)/ 

350H  V  V  V  // 

4(3E17.9) ) 

80  FORMAT (1H  / 

227H  JMAX  KM  AX  U(  INTERIOR)/ 

327H  V  // 

4(216*E17*«9 ) ) 

,81  FORMAT (1H  / 

222H  JMAX  KMAX  R  ZERO/ 

331H  INITIAL  DENSITY/ 

431H  ENERGY  // 

5(216. E17. 9) ) 

83  FORMAT (1H  / 

232H  FMLYCRIGHT)  FMLZIRIGHT)/ 

3  2E17.9/1H1/) 

84  FORMAT  I 24H0JBMIN  JBMAX  KBMIN  KBMAX/416) 

85  FORMAT (1H  / 

293H  TINY  A  TINY  B 

3  VIS)  E(0) /6E17.9/ 
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BIG  A 


BIG  b 


•6 

87 

88 

89 

90 

91 

92 

93 

C**» 

900 

901 

902 

100 

101 

102 

103 


, 

459H  E  ( S)  ALPHA  BETA  QCON/ 

3  4E17.9) 

FORMAT (1H  / 

2108H  J  Y  J  Y  J  Y 

3  J  Y  J  Y/ 

4(3<  I4.3X.E17.9HI 
FORMAT (1H  / 

2108H  K  2  K  l  K  L 

3  K  l  K  1/ 

4(3(I4.3X.E17.9))) 

FORMAT (1H  / 

224H  JMIN  JMAX  KMIN  KMAX /4 16) 

FORMAT (1H  / 

227H  JMAX  KMAX  U(  INTERIOR)/ 

3(216.E17«9) ) 

FORMAT (1H  / 

227H  JMAX  KMAX  V(  INTERIOR )  / 

3(216. E17«9) ) 

FORMAT (1H  / 

222H  JMAX  KMAX  R  ZERO/ 

3(216. E17. 9)1 
FORMAT (1H  / 

231H  JMAX  KMAX.  INITIAL  DENSITY/ 

3(2I6.E17«9)) 

FORMAT (1H  / 

230H  JMAX  KMAX  INITIAL  ENERGY/ 

3(216. £17*91) 


00  900  J« 1.600 
OUMPVt  J) *0.0 
DO  901  J«l. 19230 
RX(J)*0»0 
DO  902  J-1.1395 
A(J)-0. 

MMAce  ■  i 

IF  ( EOF.S )  101.100 

READ  (5.1)  TITLE 

WRITE (6.01 )T1TLE 

READ  (5.2)  PROBNO 

IF  (PROBNO.GT.O.)  GO  TO  103 

IF  (NDMP.EQ.O)  GO  TO  102 

END  FILE  10 

REWIND  10 

STOP 

WR1TE(6.51)PR0BN0 
READ (3. 3) (KSV(J).J«1.12) 

WRITE  (6.52)  (KSV(J).J-1»12) 

READ  (3.2)  (SAV(J).J-1»6) 

WRITE  (6.53)  (SAV( J) *Ja1.6) 

READ(3.3)JBOT.JTOP.KBOT.KTOP.KBUG.MOTION.(KINT(J).J*1.3) 

WRITE(6.36)  JBOT. JTOP.KBOT.KTOP. KBUG.MOTION. ( KlNT ( J) . J*1.5 ) 

READ  (3.2)  DTNM 

WRITE  (6.62)  DTNM 

READ  (3.2)  CUTOFF 

WRITE  (6.63)  CUTOFF 

READ  (3.4)  MAXN.  TMAX 

WRITE  (6.64)  MAXN.  TMAX 

MAXREG-1 

DO  10303  NREG-l.MAXREG 
WR1TE(6.34)NREG 

RE AO (5. 3)  JMIN  .JMAX  .KMIN  .KMAX 
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WRlTE(6#8fl)JMIN  .JMAX  *KMIN  *KNAX 

RE AO ( 5 * 5 1  ( JYMIN • JY MAX • «  TX <  J I . J* JYMIN • JYMAX ) ) 

READ (5*3)  ( KZMlNtKZMAX*  C  T Y C K ) *K*KZMIN»XZMAX ) ) 

10300  IF(  < JYMIN*EU*JMIN)*AND*I JYMAX.EQ. JMAX ) )  GO  TO  10303 
READ(S*4)  JTMAXfDELTA  YtRATE  Y 

1F(D£LTA  Y  «LT*0)  GO  TO  10302 

JTMIN*JYMAX«-1 

JYMAX* JTMAX 

00  10301  J*JTMIN* JTMAX 

TX(J)*TX( J-l) ♦DELTA  Y 

10301  DELTA  Y  *RATE  Y  •DELTA  Y 
GO  TO  10300 

10302  STOP 

10303  1F(  (  KZMIN.EQ.XMIN )  .AND.  ( XZMAX.EO.KMA:; )  )  GO  TO  10308 
READ! 5*4) KTMAX*DELTA  Z*RATE  Z 

IF( DELTA  Z.LT.  0)  GO  TO  10306 

XTMIN*KZMAX*1 

KZMAX*KTMAX 

DO  10304  J*KTMIN*KTMAX 

TY(  J I *TY( J-l ) ♦DELTA  Z 

10304  DELTA  Z*  RATE  Z*DELTA  Z 
GO  TO  10303 

10306  KTMI N*KZMIN-1 
xzmin-ktmax 

DO  10307  J*KTMAX*KTMIN 

X-XTMIN+KTMAX-J 

TY( K ) *TY ( X^l {•DELTA  Z 

10307  DELTA  Z«RATE  Z»DELTA  Z 
GO  TO  10303 

10308  WRITE(6*86)  ( JtTXI Jl • J*JMIN*JMAX> 

WRITE (6*87)  (K*TY( K ) »K*KMIN*KMAX ) 

SAV  (  12  )  *TY  ( XMAX  ) 

READ! 5 *2)  UXLBIN*UXBIN»UXRBIN*UYLBIN.UYBIN.UVRBIN 
WRITEl 6*78)UXLBIN*UXBIN*UXRBIN*UYLBIN*UYBIN*UYRBIN 
READ (5*6)  JUMAX • KUMAX • UX 1 N * JVMAX • KVM AX • UY 1 N 
.  WR1TE(6»80) JUMAX  »XUMAX  *UXI N»  JVMAX# XVMAX  *UY IN 

READ ( S*2)UXLTIN*UXTIN*UXRTIN  .UYLTIN.UYTIN.UYRT IN 

WRITE( 6*79 )UXLT IN *UXTIN*UXRTIN*UYLTIN*UYTIN*UYRT IN 

READ ( 5 *6 )  JZMAX*KZMAX*R  ZERO( 1) • JRMAX.KRMAX *RH01 • JEMAX*KEMAX*E1 

WR I T E ( 6 * 8 1 ) JZMAX • KZMAX  * R  ZERO (1) . JRMAX • KRMAX  *RH01 • JEMAX * KEMAX • E 1 

V  ZERO* 1* /R  ZERO 

RH0IN*RH01 

EIN*E1 

READ (5 *2)  TINY  A(NREG) •  TINY  B(NREG) • 

2  BIG  A(NREG) •  BIG  B(NREG) •  RCP  V  S(NREG) • 

3  E  ZERO (NREG) »E  S(NREG) •  ALFA(NREG) *  BETA(NRtG) 

4  .QCON(NREG) 

WRITE(6*85)  TINY  A(NREG) •  TINY  B(NREG) • 

2  BIG  A(NRcG) •  BIG  B(NREG) •  RCP  V  S(NREG)  • 

3  E  ZERO(NREG).E  S(NREG).  ALFA(NREG)*  BETA(NRtG) 

4  *QCON(NREG) 

RCP  V  S(NREG)*1./RCP  V  S  (NREG) 

QCON  ( NREG )  *  .  5*QC0N  ( NREG ) 

READ ( 5  *2 ) SFMLYR .SFMLZR 
WRITE (6*83)SFMLYR*SFMLZR 
IF  (  XBUG.GT.O )  GO  TO  10320 
JBMI N* JMAX+1 
JBMAX* JMAX+1 
KBMIN-KMAX+I 
KBMAX*KMAX+1 
GO  TO  10305 
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10320  READ  4  5  #  3 1  JBMIN*  JBMAX*KBMIN*KBMAX 
WRITE  44.84) JBMIN.JBMAX»KBMIN*KBMAX 
10305  CONTINUE 

JR  ■  JMAX-1 
JL  ■  JMIN+1 
XT  ■  KMAX-1 
KB  •  KMlN+1 
MT«1 
NREG-1 
KL»1 
KU-2 

MAXU*  JUMAX+ ( KUMAX-1 ) *JMAX 
MAX V*  JVMAX+ ( KVMAX-1 ) * JMAX 
MAXZ>  JZMAX*4KZMAX-1)«JMAX 
MAXR-  JRMAX+ ( KRMAX-1 ) *JMAX 
MAXE*  JEMAX*IKEMAX-1)«JMAX 
P  ■  3 
0  ■  1 
R  ■  2 

00  104  J« JMIN. JMAX 
RX4 J.Q)  ■  TX4  J) 

RY4J.Q1  -  TY« 1 1 
RXZ 4  J  tQ  I «RX ( J*0 ) 

R YZ ( J  #0 ) »RY 4  J.Q ) 

IF4J.NE.JMIN)  GO  TO  1030 
UNMX4 J.Q)*0. 

UNMY ( J*Q)*UYLBIN 
GO  TO  1035 

1030  YOB  I J— 1 1 *SQRT I <  RX ( J-l .U ) **2+RX 4  J-l »Q ) *RX 4  J.Q ) +RX 4  J  .U ) **2 1 /3 • 1 
YTERM( J-1)*.5*CRX( J.Q)*Y0B4 J-ll I 
Y2TERM4J-1)-.5*4RX<J-1.QKYDB4J-1>) 

TRAPV4 J-l)*.5«MRX4J.Q)*RX4J-l»G)) 

YOELTA  4 J-l I «RX( J-1.Q)-RX4 J.Q) 

AZQ C  J-l I *TRAPV  4  J-l I *YDELTA 4  J- 1 ) 

IF4 J.NE.JMAX)  GO  TO  1031 
UNMX4 J.Q)*0. 

UNMY4J.Q)»UYRBIN 
GO  TO  1035 

1031  UNMX4J.Q)»UXBIN 
UNMY  4  J  *0 )  *UY  BIN 

1035  RH04  JtOI ■RH01 
V04 J.Q) «V  ZERO 

U2  4  J  •  KU  »UNMX  4  J  *0 1  •♦2-t-UNMY  4  J  •  Q  )  **2 
104  ENM4 J»Q)aEl 

RH04  JMAX.Q)  >  0* 

VO 4 JMAX.Q )«0# 

ENM4  JMAX.Q)  ■  0. 

00  134  MKMIN.KT 

JK«K*JMAX 

INT-NREG 

00  107  J-JMIN.JMAX 

JK1*JK+J 

RX4  J.R )  ■  TX4J) 

RY4 J.R )  ■  TY4K+1) 

RXZ4 J.R)>RX4J.R) 

RYZ4 J.R)«RY4J.R) 

IF 4  4 JK1.LE.MAXU).OR.4MAXU.LE.O) )  GO  TO  1040 
READ4  5 .6 )  JUMAX • KUMAX • UX 1 N 
WRITE  46 .89)JUMAX.KUMAX.UXIN 
MAXU*  JUMAX*  4 KUMAX-1 ) * JMAX 
1040  IF4  4  JKl.LE.MAXVU0R.4MAXV.LE.0n  GO  TO  1041 


READ(5*6)  JVMAX*KVMAX*UYIN 
WR l T  E ( 6 • 90 )  JVMAX • KVMAX •  UY I N 
MAXV*  JVMAX ♦ ( KVMAX-1 ) *JMAX 

1041  IF( ( JK1*CE*MAXZ )  «OR* (MAXZ*LE*0 I )  60  TO  1042 
READ (5 *6)  JZMAX*KZMAX*R  ZERO(l) 

WRITE16.91)  JZMAXtXZMAXtR  ZERO(l) 

V  ZER0»1./R  ZERO 
MAXZ-  JZMAX+ ( KZMAX-1 )*JMAX 

1042  IF C ( JK1*LE«MAXR ) *OR« (MAXR*LE*0) )  60  TO  1043 
READ (5 >6)  JRMAX •  KRMAX • RHO 1 
WRITE(6»92) JRMAX* KRMAX* RHO 1 
MAXR*  JRMAX ♦ ( XRMAX-1 ) *JMAX 

1043  IF(  (  JKl.lE.MAXEUOR.  (MAXE.LE.O) )  60  TO  1044 
READ (3 *6)  JEMAX • KEMAX • E 1 
WRITE (6*93) JEMAX*KEMAX*E1 
MAXE*  JEMAX+ ( KEMAX— 1 ) *JMAX 

1044  Kl*K+l 

IF  ( ( J.LT.JBOTUOR* (K1.LT.KB0T).0R.< J.6T.JT0P)*0R.(K1*6T*KT0P| 
1 • OR • ( K 1 • EQ* KM AX ) )  60  TO  106 
UNMXC J*R)  *  0. 

UNMY ( J*R )  -  0* 

60  TO  1Q65 
105  RHO  (J»R)  *  0* 

V0( J*R)«0* 

ENM  (J*R)  -  0* 

60  TO  107 

106  IF( J.NE.JMIN)  60  TO  10601 
TRAPYH(K)«RX(J*0)-RX( J*R) 

TRAPZH ( K ) *RY ( J  *R ) -RY ( J»Q ) 

UNMXI J*R)»0* 

IF(K.NE.KT)  60  TO  10600 
UNMY(J*R)*UYLTIN 

60  TO  10605 

10600  UNMY ( J*R)*UYIN 
60  TO  10605 

10601  IF< J.NE.JMAX)  60  TO  10603 
UNMX( J*R)*0« 

IF(K.NE.KT)  60  TO  10602 
UNMY ( J*R ) *UYRT IN 

60  TO  10605 

10602  UNMY( J.R)«UYIN 
60  TO  10605 

10603  IF( K*NE*KT )  60  TO  10604 
UNMX ( J*R ) »UXT IN 

UNMY( J.R)«UYTIN 
60  TO  10605 

10604  UNMX(J.R|«UXIN 
UNMY( J*R)»UYIN 

10605  IF(X*EQ*KT)  60  TO  105 
1065  CONTINUE 

RHOC J*R)«RH01 
V0( J*R)»V  ZERO 
ENM( J*R)«E1 

107  U2 ( J»XU) *UNMX ( J*R ) **2+UNMY ( J  *R ) *«2 
RHO(JMAX.R)  *  0* 

V0( JMAX*RI»0* 

ENMI JMAX*R)  ■  0* 

L-Q 

L2»R 

108  00  110  J«JMIN*JR 

R1H( J)«2.»RX(J*L) 


R2HI J)-RX(j4ltll«2. 

Z2H( J».RY(J41,L)*2. 

R3H(J)aRxtJ+l»L2)*2* 

Z3H( J)-RY(J41,L2)*2. 

R4H I J ) «RX  I J  *  L2 1 *2 • 

Z4H I J } aR Y I J • L2 ) *2 • 

R41HaR4H<  JKR1HIJ) 

R12H«R 1H( JI+R2HI J ) 

R23H*R2H| JI+R3HI J ) 

R34HaR3H|J|«-R4H|J| 

A41aRX(J#U«RY(J.L2)-RXCJ*L2)»RYUtl) 

A12*RX(  J+1*L  )*RY(  J*L  )-RX  ( J»L)*RY( J+1»L  ) 
A23«RXIJ4l.L2)»RY«J+l*U-RX(J+l.U*RYI  J*l*L2l 
A34aRX( J»L2)*RY( J+1*L2)~RX( J+1»L2)*RY( J»L2 ) 

A41Ha2.*A41 

A12H«2.*A12 

A23H«2**A23 

A34H«2«*A34 

6  A1YI  J.U-<  (Z4HIJ)#R41H-Z2H(  J)*R12H>*.3+A41H«-A12H)/(-12*) 

A1ZC J»L)a(R2HCJ)*Rl2M-R4H(J|*R41H»/(-24«| 

A2YI J*L)a( <ZlH< J)*R12H-Z3H< J)*R23H»*.5+A12H+A23H)/|-12.) 

A2Z ( J*L)a(R3H( J)*R23H-R1H( J)*R12H)/(-24* ) 

A3Y(  J»L)«(  CZ2H(J)*R23H-Z4M(  JI*R34H)*«5+A23H+A34H)/|-12« > 
A3Z(J»L)a(R4H(J)*R34H-R2  HI  J ) *R23H) / I -24. ) 

A4Y I J  »  L I  a || Z3H IJ I «R34H-Z 1H I J ) *R41H ) *. 54A34H4-A41H I / 1 -12 • ) 

A4Z IJtL)a(RlHIJ) *R41H— R  3H ( J ) *R34H ) / 1 -24* I 
IF! J.EQ.JMIN)  ZTERHa.5#(RY( J.RJ-RYI J.O) I 
AWl  I  J«Q)a(RX(  J+1*Q)**YDB(  J)  )*ZTERM 
AW2 1 J • Q ) ■ I Y08 1 J I -RX I J  *0 ) )*ZTERM 
1FIK.NE.XMIN)  60  TO  1091 
CVOL 1- YTERM ( J I *AWl I J  tQ ) 

CVOL2-Y2TERM I J ) *AW2 I J  *0 ) 

TA1 1  J)  aCvOLl/ 1 CVOL 1 ♦CVOL 2 ) 

TA2< J)al.-TAl(J) 

CHASS1I JtO)*CVOLl*RHOl JtO) 

CMASS2 1 J  tO I >CV0L2*RH0 ( J • 0 ) 

60  TO  1092 

1091  CMASS1 I J»Q) ■ AWl ( J*Q) *YTERM| J)*RHQI J*QI 
CHASS2 1 J»0) «AW2 ( J  *0 ) *Y2TERH ( J 1 *RHO( J«Q ) 

1082  YlP2aRX(J4l«Q)4RX(J»0) 

212-RY(J+1»G)-RY(J»Q> 

Y2P3«RX(J»Q>+RXIJ»R> 

Z23*RYI J*0)-RY( J»R ) 

Y3P4aRXt J»R>+RX< J+ltR) 

Z34-RY( J.R)-RY( J+l.R) 

Y4PlaRX(J4l»R)4RX(J4ltO) 

Z41«RYI J4l*R>~RVI J4l»0) 

VOLIJ*Q|a|Z12*IYlP2**2-RXIJ4lfO)«RXIJtOl Y2P3**2-RXI  J*U  I 

1  RX<J*RmZ34*IY3P4-RXIJtRl*RXIJ4l*R)M>Z41*tY4Pi**2-RX<Jn»R)* 

2  RXIJ+ltOm/6* 

1095  FHASNM I J  *  0 ) «RHO I J  *0 ) * VOL  I J  »Q ) 

IF  IFMASNMI J»Q) .6T.0. )  60  TO  109 

KP  »  K 

WRITE  (6*77)  J*  KP •  FHASNM I J»Q) 

NMASS  *  2 

109  60  TO  1 1090 f 1091*1090) * HOT I ON 

1090  ETAI  J.Q|aRH0U*Q)*V0t  J»Q| 

GHU-ETAU»Q)-1. 

ERHOaENHl J.0)*RH0l J.Q) 

EZETA«EZERO*ETA| J#Q)**2 
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G-  ENM( JtO) /EZETA^l# 

BOVERG-TINYi/G 

I F I ( ETA( JtO) tGE* 1* )  #0R»  ( ( ENM( JtO) tLE*ES) tANOt (ETA( JtU) #GT tRCPVS) ) ) 
2  GO  TO  10900 
H— GMU/ETA(JtO) 

BET  AM*EXP I -OETA*H ) 

ALFAH*EXP ( -ALFA«H*«2 ) 

AMUBH-B 1 GA*GHU*BE  T AH 

PNM( JtO)-  T 1  NYA*ERH04 ( bOVERG*tRHO-fAHUBH ) #ALF AH 
GO  TO  1092 

10900  AMUBMU-G*U*(BlGA+01GBtGMU) 

PNH I J  1 0 I ■ ( T 1 NYA+BOVERG )*ERHO*  AMUBMU 
GO  TO  1092 

1091  PNM(JtO)  ■  0*0 

1092  QU(JtO)«OtO 
Q12 ( JtO ) *0*0 
0221 JtQ)-0#0 
QX(JtQ)-0*0 

1099  PQNMXX ( JtO) -PNM( J  *0)4011 (JtO) 

'■  PONMXY  (JtQ)-Q12(JtQ) 

.  PQNMYY ( J»Q) -PNM( J tQ)+Q22 (JtO) 

POMX ( J  tO ) -PNM( J  tQ ) ♦QX (JtO) 

NTPT(JtG)-3 

SMASSI  ■  SMASS 1 ♦FMASNM (JtO) 

110  SENER I -SENER  I  ♦FMASNMt  JtO  )*£NM(  JtO  )♦•  5*  ( CMASSl ( JtO )*( U2 ( J^l t XL )♦ 

2  U2 ( J+ 1 1 KU ) )  ♦CHASS2 ( JtQ ) * ( U2 ( J  t  XL ) +U  2 <  J  •  KU III 

1313  XL-KU 

XU-M0D(XLt2)+l 

IF(X«EQ»KINT(NREG)  )NREG*NREG+1 
FMLYR(K)«SFMLYR 
FMIZR(K)-SFMLZR 
IF(XtGTtKMIN)  GO  TO  121 
FMSNZ ( JMIN tQ ) -CMASS2 ( JMIN tQ ) 

FMNMX(JMINtQ)«Ot 
00  114  J- JLt JR 

112  FMSNZ  C  J  *0 1 -CMASS2 ( J  *0 1 ♦CMASSl ( J- 1 tQ  > 

113  FMNMX (JtO) -FMSNZ (JtO) *UNMX (JtO) 

FMNMY ( J  t Q ) -FMSNZ (JtO) *UNMY (JtO) 

SMOMYI  «  SMOMYl+FMNMX( JtO) 

114  SM0MZ1  >  SMOMZ 1 4>F MNMY  (JtO) 

FMSNZ ( JMAXtQ)-CMASSl(jRtQ) 

FMNMX (JMAXtQ)-O* 

GO  TO  131 

121  FMSNZ( JMINtQ)>CMASS2( JMINtQ)+CMASS2 ( JMINtP) 

FMNMX (JMINtOI-Ot 
00  123  J-JLtJR 

12 3  FMSNZ  ( JtO ) -CMASS2  (  Jt P )+CMASSl ( J-l  t P  )  +CMASS1  ( J-l  tQ  )<fCMASS2  ( J tO ) 

124  FMNMX (JtO) -FMSNZ (JtO) «UNMX (JtO) 

FMNMY (JtO) -FMSNZ (JtO) *UNMY (JtO) 

SMOMYI  -  SMOMYI ♦FMNMX (JtO) 

125  SMOMZ  I  «  SMOMZ  I  ♦FMNMY  (JtO) 

FM$NZ< JMAXtQ) -CMASSl (JR  tO) ♦CMASSl ( JR  tP) 

FMNMX ( JMAXtO ) *0* 

126  IF  (XtLTtXT)  GO  TO  131 
FMSNZ( JMINtR)-CMASS2( JMINtQ) 

FMNMX I JMINtR ) -0* 

00  130  J- JLt JR 

128  FMSNZ ( J  t R ) -CMASSl ( J-i tO ) ♦CMASS2 ( JtO ) 

129  FMNMX (JtR) -FMSNZ ( JtR) *UNMX( JtR) 

FMNMY ( JtR) -FMSNZ ( JtR)*UNMV( JtR) 

SMOMYI  >  SMOMYI  ♦FMNMX  (JtR) 
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. 

t 

I 


130  SMOMZI  ■  SMOMZI +FMNMY I  J*R) 

FMSNZI JMAX*R)*CMASS1I JR  *0) 

FMNMXI JMAX*R)*0* 

FMNMYI  JMIN*R)a|FMSN2t  JMIN»R)*UNMYI  JMIN*R) 

FMNMY I JMAX t R ) *FMSNZ ( JMAX , R ) *UNMV I JMAX  •  R  > 

SUOMY  1  a  SMOMYl+FMMMXI  JMAX*R)+FMNMXI  JM1N*R) 

SMOM21  ■  SM0M2I+FMNMYI  JMAX»R)+FMNMY(  JMINtR) 

131  FMNMYIJMIN*Q)aFMSNZIJMlN*Q)*UNMYt  JMIN*Q) 

FMNMY I JMAX  *0 ) -FMSNZ I JMAX  *0 ) •UNMY I JMAX  *Q ) 

SMOMYI  a  SMOM Y 1 +F MNMX ( JMAX * Q ) ♦FMNMX I JM 1 N • Q ) 

SM0M2I  -  SMOMZH'FMNMYI JMAX *0) ♦FMNMY (JMlNtO) 

1350  . LS*P 
P  a  0 
Q  a  R 

R  «  LS 
KNOUT  >  i 

132  LaP 

WRITEIMT)  ( RX ( J*L ) *  RYIJ.L).  UNMX(J.L)t  UNMYIJ.L). 

2  FMASNMt  J*L ) •  ENM( J»L)  *  PNMIJ.L)*  PQNMXXIJtL)*  PQNMXYI J*L)* 

3  PQNMYYI J*L ) •  VOL I J*L ) *  RHOIJ*L)» 

4  PQMXCJtL)*  FMNMXI J*L) •  FMNMY I J*L ) •  NTPTI J*L) •  A1YIJ*D* 

5  A2YI JtL)  *  A3YI J*L)  *  A4Y(J*D*  A12(J*L)t  A2ZIJ*L)* 

6  A32  ( J»L)  •  A4Z  ( JtL)  •  AW1I J*L)  •  AW2IJ*L)»  CMASS1IJ*L). 

7  CMASS2 I JtL )  »  RXZIJ*L)*  RYZU*L).  VOIJ.L)*  J«JMIN*JMAX) 

133  IFUSVI12UGT.0)  60  TO  1335 
00  1330  I  * JM I N • JMAX 1 14 
JPR1NT*U13 

IFI JPRINT.GT.  JMAX)  JPRINT*  JMAX 
00  13300  J-I*JPRINT 
13300  FMSN2(J»P)-2.*FMSNZ(J»P) 

1330  WR1TE(6*70)  PROBNO.  TIME*  DTNM* 

2  I  RX(J.P).  RY  C J*P) * 

3  VOU J*P) •  RHO( J*P) •  ETAC J*P) *  ENMIJ*P)»  J*  KtN* 

4  UNMXI J»P ) •  UNMY ( J*P ) »  FMASNM(J*P)»  CMASSlIJvP)*  AW1IJ*P)* 

5  PONMXX(JtP).  PQNMYYIJ.P)*  FMNMX(J*P)*  FMNMY».J*P)*  FMSN2CJ*P) 

6  CMASS21 J*P) •  AW2 ( J*P )  •  PQNMXYI J*P)»  POMX(J*P)» 

7  Ja I • JPRINT ) 

1335  GO  TO  1 134* 140)* KMOUT 
134  CONTINUE 
KaKMAX 

FMLYRI KMAX ) "SFMLYR 
FMLZR I KMAX ) »SFML2R 
KMOUT  «  2 
P  ■  Q 

00  1345  Ja JMIN* JMAX 
VOLI J*P)  >  0 
NTPTI J*P)  •  0 
FMASNMI J*P)  a  0 
PQNMXXI J*P)«0 
PQNMXYI J*P)«0 
PQMXIJ*P)«0 
1345  PONMYYI J*P I >0 
GO  TO  132 
140  WRITEI4*75 ) 

REV I  NO  MT 

WRITE  16*76)  SENERI •  SMASSI*  SMOMYI*  SM0M21 

OTNMP5».5*OTNM 

DTNM2«2**DTNM 

CUTlaOTNM*CUTOFF 

CUT2«OTNM2«CUTOFF 

ROTNMal./OTNM 
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subroutine  rstart 


COMMON 

NREG.  RDTNM. 

MOTION. 

JBMIN. 

JBMAX. 

XBMIN. 

2 

XBMAX. 

TIME.  SMOMZ1 .  SMZTPT . 

SMOMZ. 

SMOMY I . 

SMYTPT. 

SMOMY. 

3 

SENERI * 

S1ETPT .  SXETPT.  WORX. 

SUMIE. 

SUMXE . 

SUMTE. 

FIMPZ. 

4 

FIMPY. 

SMASSI.  SMSTPT .  SMASS. 

PROBNO. 

DTNM. 

CUTOFF. 

N. 

5 

XBOT  • 

XTOP.  MAXN.  TMAX . 

DTNMN. 

SFM. 

DTNMP5. 

DTNM2. 

6 

XB » 

CUT  1 .  CUT2.  UYLBIN. 

UYBIN. 

UYRBIN. 

UXLBIN. 

UXBIN. 

7 

UXRB1N, 

UYLTIN.  UYTIN.  UYRTIN. 

UXLTIN. 

UXT IN. 

UXRTIN. 

XTM. 

8 

JMIN. 

JMAX •  XM1N.  XMAX. 

JL  . 

J3  • 

JR. 

JRM. 

9 

XT. 

EIN.  RH01N. 

UYIN. 

UXIN 

»  XINT ( 5 ) « 

A 

E  S  (  5  )  * 

ALFAI5).  BIG  A(5)» 

BIG  B ( 5 ) 

.  RCP 

V  S(5).E 

A.EROI5 ) 

2  TINY  A ( 3 ) •  TINY  B(5).  R  ZERO ( 5 ) .BE T A ( 5 ) »  UCON(5).  SAV( 12 ) * 


4 

XSV ( 24 ) . 

YTERM(55) . 

Y2TERM ( 55  )  .  TA1 ( 55 ) »  TA2(55). 

5 

FMLYR( 101) . 

FMLZR(lOl). 

VACANT (15) 

COMMON 

A( 55 )  •  /  DlL ( 55 ) .  EPX(55). 

2 

EPYI55) . 

EPZ  <  55 ) ♦ 

FMLYBt  55 )  •  FMLYT ( 55 ) .  FMLZB(55)» 

3 

FMLZT ( 55 ) • 

LY1 (55 ) . 

LY2 ( 55  )  •  LZ1(55).  LZ2(55). 

4 

PY ( 55  )  • 

PZ  (  55  ) . 

R1HI55).  R2H ( 55 ) .  R3H(55). 

5 

R4H ( 55  ) . 

ZlH ( 55 ) t 

Z2H(55).  Z3H ( 65 ) »  Z4HI55). 

6 

U2 ( 55  •  2  )  • 

B (  55 .4 ) 

COMMON 

A 

RX ( 55.5  ) » 

RY ( 55 .5 ) . 

UNMX (55.5). 

1 

UNMY (55.5). 

UNPX (55.5). 

UNPY (55.5). 

FMASNMt  55.5). 

2 

ENM (55.5). 

EN ( 55 .5 )  . 

PNM (55.5). 

PN( 55 .5 ) • 

3 

PONMXX (55.5) 

•  PQNMXY (55.5) 

9 

PQNMYY (55.5). 

PUNXX (55.5). 

4 

PQNXY ( 55.5 ) • 

PQNYYI55.5  )  » 

RWA3Z (55.5). 

RWA1Z (55.5) . 

5 

RWAE3Z (55.5) 

•  RMAE1Z (55.5) 

• 

RH3Z (55.5). 

RH1Z ( 55 • 5 ) • 

6 

E3Z ( 55  •  5 ) * 

E1Z ( 55 .5 ) • 

RHO (55.5). 

VOL (55.5 ) • 

7 

ETA ( 55 • 5 )  • 

A1Y ( 55 .5 ) • 

A2Y ( 55 .5 ) » 

A3Y (55.5) • 

8 

A4Y (55.5). 

A1Z (55.5) • 

A2Z (55.5). 

A3Z ( 55.5  )  • 

9 

A4Z (55.5). 

F1Y(55.5) ♦ 

F2Y ( 55 .5 ) • 

F3Y ( 55 .5 ) • 

A 

F4Y (55.5). 

F 1Z ( 55 » 5  )  . 

F2Z (55.5). 

F3Z ( 55 .5 ) • 

1 

F4Z (55.5). 

NTPT ( 55 .5  )  . 

FMSNZ (55.5). 

FMASNt  55.5). 

2 

FMNMX (55.5). 

FMNMY (55.5). 

FMNXI 55.5 ) » 

FMNYI55.5) • 

4 

AWK55.5). 

AW2I55.5)  . 

CMASS1 ( 55.5 )  • 

CMASS2 (55.5 ) . 

5 

RXM( 55.5). 

RYM( 55.5). 

RXZ (55.5). 

RYZ ( 55.5 ) . 

6 

011(55.5). 

012(55.5)  . 

022(55,5). 

OX ( 55 .5  )  • 

7 

Pll (55.5 ) • 

P12(55.5)  . 

P22 ( 55 .5 )  • 

PX155.5) • 

8 

POX (55 .5 ) • 

POMX (55.5)  . 

VO  I  55 .5 ) 

COMMON  ICON.  LINCT.  LXl. 

LX2,  LX3 

•  LX4.  LX5. 

2 

XC.  NDPA.  NEDIT.  NSIG 

,  NMASS.  NDMP 

COMMON  AZQ( 55)»TRAPV(55) »TRAPYH(101) *  TRAPZM (101)* AY 0(331 

2 » YDELT  A ( 55 ) 

COMMON  SI ( 55 ) »S2 ( 101 ) 

COMMON  GMU ( 55 )  »H( 55 J » BET AH { 55 ) » ALFAH ( 55 ) .AMUBH ( 55 > .AMUBMUI 55) ♦ 
2  ICASE ( 55 ) 


C***« 

DIMENSION  DUMPV ( 600 J 
EQUI VALENCE ( NREG »DUMPV  ( 1 ) ) 

C***« 

DO  900  J«l,600 

900  DUMP V ( J ) bO*  0 

DO  901  Jsl. 19250 

901  RX(J)*0.0 

DO  902  J* 1 • 1595 

902  A ( J ) »0» 

DO  60  XX« 1*1  CON 
X*0 

10  READ ( 9 )  ( DUMPV (J) »J*1.600) 
IF ( I OCHECX  *  9 ) 12  1 12 


235 


12  IF  ( XX- ICON  113*25*25 

13  READ(9)  DUMPV <600 ) 
IFIEOF.9) 15.14 

14  WRITE(6*54)KX*X 
NMASS-2 
RETURN 

15  DO  20  K*XMIN.XMAX 
REAO(9)DUMPvm 

IF ( I OCHECK  .  9 ) 20  *20 

20  CONTINUE 

READ! 9)  DUMPV<600> 
IF ( EOF .9 ) 22*21 

21  DO  210  1*1*1000 
READ ( 9 ) DUMPV ( 600 ) 

IF ( EOF  1 9 ) 22*210 

210  CONTINUE 

215  WRITE(6*54)KK»X 

NMASS«2 
RETURN 

22  READ(9)  DUHPV(600) 
IF(E0F» 9)60.23 

23  WRITE(6*55)KK.K 
NMASS«2 
RETURN 

25  JMX* JMAX 
XMX-XMAX 

READ! 9)  DUMPV (600 ) 
IF(E0F»9) 30*26 

26  WRITE(6*54)KK.X 
NMASS-2 

RETURN 

30  DO  45  K-KMIN.KMAX 
N  DO  31  J-JMIN.JMAX 
SI C J»*RXMC J*l) 


S2( J)*RYM( J.l) 


READ(9)  ( 

RXM ( J* 1 ) • 

RYM(J.l). 

' 

2  UNMX(J.l)* 

UNMY(J.l). 

FMASNMJ J.l)* 

ENM( J.l). 

3  PNM ( J  •  1 )  • 

PONMXX ( J* 1 )  • 

PQNHXY( J.l )• 

PUNMYY ( J.l). 

4  VOL ( J* 1 )  • 

RHO ( J* 1 )  * 

POMX( J.l ) * 

5  FMNMX ( J* 1 )  • 

FMNMYI J*l) * 

6  NTPT< J.l )  • 

7  A1Y ( J.l ) * 

A2Y (J.l)* 

A3YCJ.1). 

A4Y( J.l). 

8  A1Z ( J.l)  * 

A2Z ( J* 1 ) • 

A3Z( J.l). 

A4Z( J*1 ) » 

9  AW1  ( J* 1 )  • 

AW2  (J.l). 

CMASSK  J.l). 

CMASS2 (J.l)  » 

A 

V0( J*l)* 

J-JM1N 

•JMAX) 

IF ( XX- I CON ) 45 .35*35 

1F( X*EQ*XMIN)GO  TO  36 
J* JMIN 

TRAPYH(K-1 )*S1(J)-RXM< J*l) 

TRAPZH(  K-l } *RYH( J  *  1 ) -S2 ( J ) 

GO  TO  39 

DO  37  J*JL* JMAX 

TRAPV<  J-1)**5*(RXM(J*1H»RXM(J-1.1)) 
YDELT A ( J-l ) *RXM (J-l *  1 ) -RXM( J » 1 ) 

A2Q( J-1)*TRAPV(J-1)*YDELTA< J-l) 

L*1 

NBR*M0D<N*2)+1 
GO  T0( 370*375 ) *NBR 
MT*3 

GO  TO  39 
MT*1 


236 


39  WR1TE!MT )  (RXM(JtL)t  RYM! JtL) t  UNMX!JtL)t  UNMY(JtL)t 

2  FMASNM! JtL )  •  ENM(JtL)t  PNH  ( J  t  L )  t  PQNMXX(JtL)t  PQNMXY(JtL)t 

3  PQNMYY ( J»L )  •  VOL! JtL) t  RHO(JtL). 

4  PQMX! JtL )  t  FMNMX! JtL)  •  FMNMY  ( JtL ) t  NTPT(JtL)t  AlY(J#L)t 

5  A2Y! JtL)  •  A3Y(  J*L)  •  A4Y(JtL)t  AlZ(JtL)t  A2Z(JtL)t 

6  A3Z( JtL) t  A4Z  ( JtL )  t  AWllJtDt  AW2!JtL)t  CMASSK  JtL)  t 

7  CHASS2  (JtL )  t  RXZ(JtL)t  RYZ  ( JtL )  t  VOIJtDt  J«JMlNtJMAX) 

43  CONTINUE 

REWIND  NT 

READ(9)  DUMP V ! 600 ) 

IF  ! EOF  1 9,'i  47t46 

46  WRITE(6t54)KKtK 
NMASS*2 
RETURN 

47  READ! 9)  DUMPVC600) 

IF!EOFt9)60t4i 

48  WRI TE!6t55 )KKtK 
NMASS-2 
RETURN 

60  CONTINUE 
REWIND  9 
READ (3 #4) 

REAO(3tl) !KSV(J) tJ«ltl2) 

READ!3t2)!SAV(J)tJ«lt6) 

READ ( 3 1 3 ) MAXN  t TMAXt DTNMN t  PROBNN 

63  IF (PROBNN) 70 t70t64 

64  PROBNO-PROBNN 

70  WRITE(6t33) ICONtPROBNOtTlMEtN 

WRITE(6t4) 

WRITE  !6t50) !KSV!J)tJ«lti2) 

WRITE  (6t31) (SAV( J) t J*lt6) 

WR I T  E ( 6 1 3  2 ) MAXN  tTMAXtDTNMNt PROBNN 
RETURN 

1  FORMAT! 1216 ) 

2  FORMAT ( 6E12*5 ) 

3  FORMAT! l6t5E12*5) 

4  FORMAT (72H 

1  ) 

30  FORMAT (1H  / 

272H  KSV1  KSV2  XSV3  KSV4  XSV3  KSV6  KSV7  KSV8  KSV9  XSV10  KS 
3V11  KSV12/ 

4(1216) ) 

51  FORMAT !1H  / 

293H  SAV1  SAV2  SAV3  SAV4 

3  SAV5  SAV6/ 

416E17.9)) 

52  FORMAT (1H  / 

250H  MAXN  TMAX  DTNMN  PROBNN/ 

3  16 t 3E17*9/ ) 

53  FORMAT! 22H1THIS  IS  A  RESTART  RUN/ 

240H  DUMP  PROBLEM  TIME  CYCLE/ 

3I6tFll«2'E17«9tI6) 

54  FORMAT! 2I6tl5HTHERE  15  00  EOF) 

55  FORMAT! 2I6tl5HTHERE  IS  01  EOF) 

END 
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subroutine  settpt 

COMMON  NREG*  RDTNM*  MOTION#  JBMIN*  JBMAX*  XBMIN* 

2  XBMAX*  TIME*  SMOMZI*  SMZTPT*  SMOMZ*  SMOMYI*  SMYTPT*  SMOMY* 

3  SENERI •  SIETPT •  SXETPT •  WORK*  SUMIE*  SUMXE*  SUMTE*  FIMPZ. 

4  FIMPY*  SMASSI*  SMSTPT#  SMASS*  PROBNO.  DTNM*  CUTOFF*  N» 

5  XBOT •  XTOP*  MAXN*  TMAX*  OTNMN*  SFW*  DTNMP5*  OTNM2* 

6  XB*  CUT  1  •  CUT2 •  UYLBIN*  UYBIN*  UYRB1N*  UXLBIN*  UXoIN* 

7  UXRBIN*  UYLTIN*  UYTIN*  UYRTIN*  UXLT1N*  UXTIN*  UXRTiN*  XTM. 

•  JMIN*  JMAX*  XMIN*  KMAXt  JL*  J3.  JR*  JRM* 

9  XT*  EIN*  RHO IN*  UYIN*  UXIN*  XINT(5). 

A  E  S(5 )  *  ALFA! 5 ) •  BIG  A(5).  BIG  B < 5 » •  RCP  V  S(5)*E  ZERO<5)* 
2  TINY  A(  5 )  •  TINY  B(5)«  R  ZERO(5) *BETA(5) •  QCON(5).  SAV(12)* 

4  XSV( 24 ) *  YTERM(55) •  Y2TERM( 55 ) •  TA1(55) •  TA2(55)» 

5  FMLYRC 101 ) •  FMLZR(lOl)*  VACANT < 15 ) 

COMMON  A( 55 ) •  DlL(55)»  tPX(55)* 

2  EPY ( 55 ) •  EPZ (55)*  FMLYBt  55) •  FMLYT ( 55  )  •  FMLZB(55)» 

3  FMLZT (  55 )  *  LY1 ( 55 ) *  LY2(55).  LZ1(55) •  LZ2(55)» 

4  PY ( 55 ) •  PZ( 55 ) •  R1H(55)*  R2H(55).  R3H(55)» 

5  R4H ( 55 ) *  Z1H ( 55 ) *  Z2H(55).  Z3H(55)»  Z4H(55)» 

6  U2 ( 55*2 ) »  B(55*4) 

COMMON 

A  RX ( 55*5 ) •  RY( 55  *5 ) *  UNMX(55*5)* 

1  UNMY (55*5)*  UNPX (55*5)*  UNPY(55*5).  FMASNMt  55 *5 ) * 

2  ENM(55*5 )  •  EN(55*5J*  PNM(55.5)*  PN(55.5). 

3  PQNMXXf  55*5  )  •  PONMXYI 55.5 ) •  PQNMYYi 55.5) .  PQNXX(55*5). 

4  PQNXY ( 55*5 ) •  PONYY(55*5).  RWA3Z(55*5)»  RWA1Z(55»5)» 

5  RWAE3Z ( 55*5  )  »  RWAE1Z ( 55.5 > »  RH3Z(55*5).  RH1Z(55*5)» 

6  E3Z ( 55 *5 ) »  E1Z ( 55 *5 ) •  RHO(55.5).  VOL(55»5)* 

7  'ETA ( 55*5)*  AIY ( 55  *5 ) *  A2Y(55»5)»  A3Y(55»5)* 

•  A4Y (55*5) •  AIZ ( 55*5 ) *  A2Z(55*5)»  A3Z(55*5)» 

9  A4Z (55*5)*  FI Y ( 55 *5 ) *  F2Y(55»5)»  F3Y(55*5)* 

A  F4Y (55*5)*  F1Z(55.5).  F2Z(55,5)*  F3Z(55*5)» 

1  F4Z(55*5)*  NTPT (55*5) •  FMSNZ(55.5).  FMASN(55*5)» 

2  FMNMX (55*5)*  FMNMY(55*5).  FMNX(55*5).  FMNY(55*5)» 

4  AMI  (55*5)*  AW2  (55*5)  •  CMASSK55.5)  •  CMASS2(55.5  )  • 

5  RXM( 55*5)*  RYM(55.5) »  RXZ(55*5)»  RYZ(55.5). 

6  011(55*5)*  012(55*51*  022(55*5)*  QX(55*5)» 

7  Pll ( 55 *5 ) •  P12 (55*5) •  P22(55*5)»  PX(55*5)» 

8  POX (55*5)*  POMX (55*5)*  VO(55*5) 

COMMON  ICON*  LINCT*  LXl*  LX2*  LX3*  LX4*  LX5 1 
2  XC*  NOPA*  NEOIT*  NSIG*  NMASS*  NDMP 

COMMON  AZQ( 55 ) *TRAPV( 55 ) *TRAPYH( 101 ) *TRAPZH( 101) »AY0(55) 

2  •  Y DELTA) 55 ) 

COMMON  SI ( 55 ) *S2 ( 101 ) 

COMMON  GMU( 55 )*H(55)»BETAH(55)*ALFAH(55) . AMUBH( 55 ) *AMUBMU( 55 ) • 

2  I CASE ( 55 ) 

•••» 

L«LX  1 

L4*LX4 

L5*LX5 

DO  100  JsJMlN* JR 

SNO I  SE  *  RHO  ( J  *  L )  -2  •  *RHO  ( J  •  L  5  )  4-RHO  (  J  •  L4  ) 

IF (  ABS(SN0ISE)*LE.(RH0( J.L5)*10.E-8) )G0  TO  20 
IF (SNOISE ) 10*20*30 
10  B( J*4) *—1*0 
GO  TO  40 
20  B(J»4)«0*0 
GO  TO  40 
30  B( J*4)«l«0 

- AX  IS  ZERO  RY( J.L ) *RV( J*1*L ) 

40  BY  •  UNPY  ( J*L4)  ♦  UNPY(J’«>1*L4) 


WDA*  «5*WY*AZQ(J) 

C  BACKWARD  TRANSPORT 

GO  TO  55 

IFCKC.EQ.3)  GO  TO  55 

50  1F(ABS(-B( J*4)+B( J«3KB(Ji2)-B|J»l))-4*0)  60*55*60 
55  1F(WDA)75*80*85 
60  IF(WDA)65*80*70 

65  lF(ABS(B(J*3)-B(J*2)+B<J*in-2*0l  90*75*75 
70  1F(A8$(B( J*4)-B(J*3t+8<J*2l  1-2*01  90*85. 65 
75  NTPT ( J*L4  )*1 

GO  TO  100 

80  NTPT<J*L4  )«2 

GO  TO  100 

85  NTPT ( J*L4  )»3 

GO  TO  100 

90  NTPT ( J*L4  )>4 

100  CONTINUE 

RETURN 
END 


© 
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SUBROUTINE  STRESS 
COMMON  I 

2  KBMAX*  TIME*  SMOMZ1* 

3  SENERI •  SIETPT*  SKETPT* 

4  FIMPY*  SMASS1*  SMSTPT. 

5  KBOT •  KTOP*  MAXN* 

6  KB*  CUT  It  CUT2* 

7  UXRBINt  UYLTIN*  UYTINt 
6  JMIN*  UMAX*  KMIN* 

9  XT*  EIN*  RH 

A  E  SIS)*  ALFA( 5 ) •  BI 

2  TINY  A(  5 )  •  TINY  B(5)»  R 

4  XSV ( 24 ) .  YTERM( 55 ) * 

5  FMLYRUOl)*  FMLZR(lOl)* 
COMMON 

2  EPY ( 55 )  •  EPZ ( 55 ) * 

3  FMLZT ( 55 ) •  LY1(55). 

4  PY ( 55  )  *  PZ( 55 ) • 

5  R4H ( 55  )  *  Z1H ( 55 ) • 

6  U2 ( 55*2 ) •  B( 55*4) 

COMMON 


NRE6* 

SMOMZ1 • 

SXETPT* 

SMSTPT* 

MAXN* 

CUT2* 

UYTIN* 

XMIN* 


RDTNM*  MOTION*  JBM1N*  JBMAX*  XBM1N* 

•  SMZTPT *  SMOMZ*  SMOMYI*  SMYTPT*  SMOMY* 

•  WORK*  SUMIE*  SUMKE*  SUMTE.  FIMPZ* 

•  SMASS*  PROBNO*  OTNM*  CUTOFF*  N* 

TMAX*  OTNMN*  SFW*  OTNMP5*  DTNM2 • 

UYLB1N*  UYBIN*  UYRBIN*  UXLB1N.  UXBIN. 

UYRTIN*  UXLTIN*  UXTIN*  UXRTIN*  XTM* 

XMAX.  JL*  J3.  JR*  JRM* 

RHOIN*  UYIN*  UXIN*  KINT(5)* 

BIG  A(  5 )  *  BIG  B(5 )  •  RCP  V  S(5)*E  ZEROC5 ) * 
R  ZERO(5) *BETA(5) •  OCON(5)*  SAV(12). 

•  Y2TERM1 55 ) •  TA1 ( 55 ) •  TA2(55)* 


ZER015) »BETA(5) 
Y2TERM1 55 ) • 
VACANT (15) 

A  ( 5  5 1  • 

FMLYB( 55 ) • 

LY2 ( 55  )  • 

R1H (55 )  • 
Z2H<55)» 


Di L ( 55 ) * 
FMLYT ( 55 )  . 
LZ1(55)  • 
R2H( 55)  • 
Z3H ( 55 ) • 


EPX(55). 
FMLZB ( 55 ) • 
LZ2 ( 55 ) • 
R3H ( 55 ) * 
Z4H ( 55 ) • 


A 

RX(55*5 ) • 

RY( 55 *5 )  • 

UNMX (55*5)* 

1 

UNMY (55*5)* 

UNPX (55*5) • 

UNPY (55*5)  • 

FMASNM( 55  *5 ) • 

2 

ENM( 55*5)* 

EN ( 55 *5  )  • 

PNM (55*5)* 

PN( 55*5 ) • 

3 

PONMXX (55 *5 )  • 

PQNMXY (55*5)* 

PQNMYY ( 55*5  )  • 

PONXX ( 55*5)* 

4 

PONXY ( 55*5 ) • 

PQNYY (55*51* 

RWA3Z (55*5)* 

RWA1Z(55*5)» 

5 

RWAE3Z (55*5)* 

RWAE1Z ( 55*5 ) • 

RH3Z( 55 *5 )  • 

RH1Z(55*5) • 

6 

E3Z (55*5)* 

E1Z ( 55  *5  )  • 

RHO (55*5)* 

VOL (55*5) » 

7 

ETA ( 55*5 ) • 

A1Y ( 55 *5 )  • 

A2Y (55*5)* 

A3Y (55*5)* 

8 

A4Y (55*5) • 

A1Z ( 55*5)  • 

A2Z (55*5)* 

A3Z ( 55*5 )  • 

9 

A4Z (55*5)* 

F1Y(55*5 ) • 

F2V(55,5). 

F3Y ( 55*5  ) » 

A 

F4Y (55*5 ) • 

F1Z ( 55  *5 ) • 

F2Z ( 55  *5  )  • 

F3Z ( 55*5  ) » 

1 

F4Z (55*5)* 

NTPT(55*5) • 

FMSNZ (55*5)* 

FMASN(55»5) • 

2 

FMNMXt  55*5 ) * 

FMNHY (55*5) • 

FMNXI 55*5 )  • 

FMNYI55.5)* 

4 

AWK55.5). 

AW2 (55*5) • 

CMASSl ( 55*5  )  • 

CMASS2 (55*5)* 

5 

RXM( 55*5 ) • 

RYM( 55  *5 ) • 

RXZ (55*5)* 

RYZ ( 55*5 )  • 

6 

011(55*5)* 

012(55*5) • 

022(55*5)* 

QX( 55*5)  • 

7 

Pll (55*5) • 

P12(55*5) • 

P22(55*5)  • 

PX ( 55  *5 ) » 

8 

POX (55*5 ) • 

PQMX(55*5) * 

VO  (  5  5  •  5 ) 

COMMON 
2  XC* 


ICON* 
NOP  A* 


LINCT* 

NEDIT* 


LX1* 

NS1G* 


LX2* 

NMASS* 


COMMON  AZO( 55 1  * TRAP V ( 55)*  TRAPYH ( 1 01 

2  *YDELTA( 55 ) 

COMMON  Sl( 55 ) *S2 ( 101 ) 

COMMON  GMU(55)*H(55)*BETAH(55)»ALFAH(55) 
2  1 CASE (55 ) 


LX 3*  LX4*  LX5* 

NOMP 

) *TRAPZH( 101) *AYQ(55) 


•  AMUBHt  55 ) *AMUBMU( 55 ) * 


DIMENSION  TEM( 55 ) 

L-LX1 

L2-LX2 

L5*LX5 

00  250  J» JMIN* JR 

CHANGED  FOR  BACKWARD  TRANSPORT  1-9-66 
GO  TO  20004 

IF ( J.GT.JMIN)  GO  TO  201 
P32>PQNMXX(  J*U*2. 

GO  TO  202 

P32>  PONMXX ( J • L ) 4PONMXX ( J- 1 . L ) 

P41*  PQNMXX ( J • L ) ♦PONMXX ( J+ 1 *L ) 

FY* ABS ( AYO ( J ) «P32-AYQ ( J+l ) *P4l+4. * ( AW1 ( J 
IF(XC.GT.XMIN)  GO  TO  203 


•  L  )  +AW2  (  J  •  L ) )  *PQNMXX  (  J  •  L  )  ) 
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FZ* ABS  ( AZO  ( J )  *  ( PONMXX  ( J  t  L2 )  -PONMXX  (  J  *  L  Ml 
60  TO  204 

203  FZ*AB$(AZQ(J)*(PQNMXX(JtL2)-PQNMXX(JiL5))) 

204  OEM*  FY**2+FZ**2 

I F  (  0EM.6T • ( 10. E-MPQNMXX I JtL) *»2* ( TRAPZH ( KC I ••2+YOELTA ( J)**2) I  I 
2  60  TO  2040 

20004  FY*UNMXt J#L)+UNMX(J+1»L)+UNMX(J»L2)+UNMX(J+1»L2) 

FZ*UNMY  ( J  •  L  l+UNMY  ( 1 .  L I +UNMY  ( J  *  L2 1  +UNMY  ( J+ 1  •  L2 1 

DEM-FY**2+FZ*»2 

IF(DEM.GT.O)  60  TO  2040 

A0*0 

60  TO  2041 

2040  AQ*(FZ*TRAPZH(KCI-FY*YDELTA(J) |»«2/DEM 

2041  COMP Y ■  A 1 Y  ( J  t  L ) *UNMX (JtL) +A2  Y ( J • L I *UNMX ( J+ 1 1 L ) +A3  Y ( J  t  L ) * 

1  UNMX ( J+l tL2 I+A4Y ( JtL ) *UNMX ( J  f L2 ) 

COMPZ ■ A 1 Z ( J  *  L I *UNMY (JtL) ♦ A2 Z ( J • L I *UNMY ( J+ 1 1 L ) +A3Z (JtL)* 

2  UNMY(J*ltL2)«>A4Z(  J.L)*UNMY(  J»L2> 

VDOT«COMPY*COMPZ 

TEM(J)  «  VDOT/  VOL (JtL) 

203  RHOLO*RHO (JtL) 

RHO( JtL)*FMASN( JtL)/VOL( JtL) 

1F( VDOT.GT.O)  60  TO  210 

Qll(JtL)*  QCON*  AQ*(RHO(  JtL)<fRHOLO)*TEM(  J)«*2 
60  TO  211 

210  011  (JtL )  *-OCQN*  Ati*(RHO(  JtL)4RH0L0)*TEM(  J)**2 

211  ETA( JtLI*RHO(JtLI*VO(JtL) 

022 ( JtL) *011 (JtL) 

0X( JtL)-Oll(JtL) 

6MU< J|*ETA(JtLI-lt 
ERHO*ENM( JtL)*RHO( JtL) 

EZETA*EZER0*ETA(JtL)*»2 
6*  ENM( JtLI/EZETA'f It. 

B0VER6*  T 1 NYB/6 

IF ( (ETA(  JtU.GE.l.  ).0R.(  < ENM( J tL > . LE.ES ) . AND. < ETA ( J.l > .GT.RCPVS )  )  ) 
2  60  TO  225 

ICASE( J)*l« 

H( J )*-6MU( J)/ETA( J»L) 

BET AH ( J ) -EXP ( -BETA*H ( J) ) 

ALFAH ( J | *EXP ( -ALF A*H ( J ) **2 ) 

AMUBH ( J ) *BI6A*6MU ( J ) #BET  AH ( J ) 

PN ( J  t L )  *  T I NYA*ERHO* ( BOVERG*ERHO+AMUBH ( J) ) * ALFAH ( J ) 

60  TO  230 

225  AMUBMU ( J ) *6MU ( J ) * ( B I 6A+B 1 Gb*GMU ( J ) ) 

ICASE( J)*2 

PM( J  t  L I ■ ( TI NYA+B0VER6 ) *ERHO*  AMUBMU ( J ) 

230  Pll( JtL)-PN(JtL) 

P12(JtL)*0. 

P22 ( JtL)*PN( JtL) 

PX( JtL)*PN( JtL) 

250  CONTINUE 

CALL  FORCE 
CALL  ENER6Y 
00  350  J* JMlNt JR 
MM  ■  1 •/ ( ETA( JtL) **2 ) 

Ml  *  EN  ( JtL)*MM/EZERO 
M2  *  TINYA*RHO(JtL) 

M3  ■  EN  (JtL)*M2 
6  *  Ml  ♦  It 
M4  «  T I NYB/6 
M5  *  EN  (JtL)*M4 
M6  «  RHO( JtL)*M5 
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M7  ■  Ml/6 

IF!  IETAC  J.U.GE.l.  UOR.UEN  t J#L> •LE.ES) .AND. CETAC  J»L).GT.RCPVS» )) 
2  60  TO  320 

IF I 1CASE( J)*EQ«1)G0  TO  300 
H< J)*-GHU<J)/ETA< J*L) 

BETAHI J)-EXP<-BETA*M( J)> 

ALF AM t J ) >EXP ( -ALF A»M I J)**2) 

AMUBM | J | >B I GA*GMU I J I *BET AM ( J I 
300  MB* (M64AMUBH( J) )*ALFAH(J) 

MR  ■  T1NYA*EN  (J*L)  ♦  2**ALFA»H< J)*M$#VO( JtL)*MM 

2  4|  tl.42#»M7)*M3«-BlGA»V0( J#L)*tl*4BETA*GMU< JI*MM )*BETAHt J) ) 

3  *ALFAM(J) 

ME  ■  M2  4  M5*U.-M7)*ALFAH<  J) 

GO  TO  330 

320  IF( ICASEl J)«E0«2)  GO  TO  323 

AMUBMU t J ) ■GMU <  J )  *  I B 1 GA4B I GB*GMU ( J I ) 

323  N9  ■» BIGB*GMU( J)*VO( J#L) 

MB  «  M6  4  AMUBMUCJ) 

MR  ■  TINYA*EN  (J*L)  4  MB* ( 1.4*74M7)  4  tiIGA*VO(J*L)  4  w94m9 
ME  ■  M2  4  M5*( 1*-M7 ) 

330  PN(JtL)  ■  M3  4  MB 
Pll(  JfL)**r>N(  JtL) 

P12(J*L)»0. 

P22( J»L)«PN( J»L) 

PXC  JtU«PN<J*L» 

SSS  «  MR  4  PN(J»L)*ME/<RH0(J*U**2> 

IF ( (-YOELTAt J) ).GT.TRAP2H(AC) )  GO  TO  333 

DSS«SSS/YDELTA(J)**2 

GO  TO  340 

333  DSS«SSS/TRAPZM ( KC ) **2 

340  DSH  »  <6.*QCON*TEM|J)|*»2 

IF(SAV( 10)  *GT.0SS)  GO  TO  343 

SAV(1Q)*DSS 

X$VI20)«J 

KSV(21)*KC 

343  IFI$AV(9)*GT#DSHJ  GO  TO  330 
SAV(9)*DSH 
KSV( 16 ) aJ 
XSV( 19 ) *XC 
350  CONTINUE 

CALL  FORCE 
CALL  ENERGY 
RETURN 
END 
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subroutine  vertpt 

COMMON  NREG*  ROTNM*  MOTION#  JBMIN.  JBMAX#  KBM1N. 

8-KBMAX#  TIMET  SMOMZ1#  SMZTPT.  SMOMZ#  SMOMVI#  SMYTPT#  SMOMY. 

3  SENER1 •  SIETPT.  SKETPT #  WORK#  SUMIE#  SUMKE#  SUMTE#  FIMPZ. 

4  F1MPY#  SMASS1#  SMSTPT#  SMASS#  PROBNO#  OTNM#  CUTOFF#  N# 

5  K80T#  KTOP#  MAXN#  THAX#  OTNMN#  SFW#  DTNMP5*  DTNM2# 

6  KB#  CUTl#  CUT2#  UYLBIN#  UYBIN#  UYRBIN#  UXLBIN#  UXBIN# 

7  UXRBIN#  UYLTIN#  UYT1N#  UYRTIN.  UXLTIN#  UXTIN*  UXRT1N#  KTM# 

•  JMIN#  JMAX#  KMIN#  KM  AX#  JL#  J3#  JR#  JRM# 

9  KT#  EIN#  RHOIN#  UYIN#  UXIN#  KINTI5)# 

A  E  SIS ) •  ALFA! 5 ) •  BIG  A(3)»  BIG  BIS)#  RCP  V  SISt.E  ZEROI5)# 
2  TINY  A( 3 1 •  TINY  BIS) •  R  ZERO! 5 > .BETA! 5 ) .  OCONI5)#  SAVI12). 

4  KSVI24)  #  YTERMISS)  •  Y2TERMISS I  •  TA1I35).  TA2I55) » 

5  FMLYR 1 101 ) »  FMLZRI 101 ) •  VACANT  I IS h 

COMMON  A I  SB  I •  '  DILI  55 »•  EPXI55) » 

2  EPYI55).  EPZISS)#  FMLYBI 55 ) • '  FMLYTI55) •  FMLZBI55 ) • 

3  FMLZTI55).  LY1I55).  LY2I55) .  LZ1ISS)#  LZ2IS5)  • 

4  PYI55) *  PZI53).  R1HIS5 ) •  R2HI55)#  R3HI 55 ) » 

5  R4H 1 55 ) »  Z1H 155)#  Z2HI55).  Z3HI55).  Z4HI55)* 

6  U2(55#2) •  B( 55 #4 ) 

COMMON 

A  RX 1 55*5 )  •  RY 1 55 #5 ) •  UNMXI55#5l# 

1  UNMY 1 5  5 » 5 ) •  UNPXI 55#5 ) t  UNPYI55#3»#  FMASNMI55#5 ) • 

2  ENMI 55 #5 1 •  ENI55.5)#  PNMI55#5)»  PNI33.5). 

3  PONMXXI 55#5 ) •  PONMXYI 55 #5 ) •  PONMYY|53#3) •  PQNXXI35#5I. 

4  PONXY 155*5)#  PONYYI55#5)»  RWA3ZI35#5)#  RWA1ZI55#5)» 

5  RWAE3Z 1 55#5 ) »  RWAE1Z 1 55 *5 ) •  RH3ZI55#5)»  RH1ZI55.5)# 

6  E3Z(55#5) •  E1Z 1 55 >5 ) #  RHO(55#5)#  VOLI55#5)» 

7  ETAI55#5)«  A1YI55#5)#  A2YI55#5)»  A3YI55#5)# 

•  A4Y 1 55  #5 ) »  A1ZI55#5) •  A2ZI55#5)»  A3Z(55#5)» 

9  A4Z 155  #5 ) t  F1Y 1 55#5  I  #  F2YI35#5)»  F3Y(55»5)» 

A  F4YI55#5) •  FlZl55#5)t  F2ZI55#5)»  F3ZI55#5)» 

1  F4Z(55#5)»  NTPT 1 55  #5 ) •  FMSNZI55#5)»  FMASNI35#3)# 

2  FMNMXl 55#5 ) •  FMNMYI55»5)»  FMNX(55#5)»  FMNYI33.3)# 

4  AW1 1 55 #5 ) •  AW 2 1 55 #5 ) *  CMASSl 1 55 #5 ) •  CMASS2I55.5 ) . 

5  RXMI55  #5 ) •  RYM|55#5)  *  RXZI55.5).  RYZI55#5|# 

6  011 (55#5) •  012(55# 5)  •  Q22(55»5)»  0X155.5)# 

7  P 1 1 1 55 • 5 ) •  P12 1 55 #5 ) »  P22(55#5)»  PXI35.5). 

•  PQXI55#5) •  POMXI 55 .5 ) •  VO(55#5) 

COMMON  ICON#  L1NCT  *  LXl.  LX2#  LX3#  LX4#  LX5. 

2  KC#  NOP A*  NEOIT#  NSIG#  NMASS#  NOMP 

COMMON  AZQI 55 1 #TRAPV( 35 ) .TRAPYHI 101 ) #TRAPZH( 101 ) • AYOI 55 ) 

2  •  V DELTA!  55 ) 

COMMON  SI I  55) »S2 1 10 X I 

COMMON  GMUI 55 ) #H( 55 ) * BETAHI 55 ) .ALFAHI 55 ) #AMUBH( 55 ) #AMUBMU( 55 ) • 

2  ICASEI55) 

*## 

L-LX2 

L2-LX3 

L5-LX1 

DO  60  JaJMlN#JR 

- AX  IS  ZERO  RY(J^l#L)aRY( J#L) 

WY  ■  UNMY I J • L )  +  UNMY ( J+ 1 »  L ) 

WOAa  • 5*WY*AZ0( J ) 

NBRaNTPTl J#L) 

GO  TO  1 10.20.30.40) »NBR 
RH1Z I J • L ) *RHO I J • L  5  ) 

E1ZI J#L)a£NM( J.L5  ) 

GO  TO  50 
20  RH1Z I J#L)B0#0 
ElZIJ.UaO.O 

24-' 


10 


60  TO  50 

30  RH1Z( JtL) *RHO( JtL ) 

E1Z ( JtL )*£NM( JtL ) 

GO  TO  50 

40  D1«SQRT<<RX(J+1»L)+RX<J»L)-RX(J+1»L5)-RX(J»L5)>**2 

1  ♦ < RY « J*1'L)+RY( JtL)-RYC J.L5  )-RY(JUtL5  ) ) ) 

D2*SQRT ( ( RX  ( J+l »L2  )4RX(JtL2  )-RX ( J+l tL)-RX ( J.U )**2 
1  +(RY( J+ltL2  )*RY(JtL2  )-RY( J*ltL)-RY( JtL) )**2) 

012*1*0/(01402) 

WDAMAG* ABS ( AZO ( J ) ) 

WN*WDA/WDAMAG 

RH 1Z ( J  t  L ) ■ ( 02*RH0 ( J • L 5 ) +0 1*RH0 ( J  *  L ) +3 • 0*NN* ( RHO (JtL) -RHO ( J  t  L 5 ) ) * 
1  DTNM)*D12 

E1Z ( JtL )■ (D2*ENM( JtL5 )+Dl*ENM( JtL )+3«0*WN*( ENMt  Jt L )~ENM( JtL5 ) )# 

1  DTNM)*D12 

50  RMAlZ(JtL)*RHlZ(JtL)«WOA 

RWAElZ(JtL)*RWAlZ( JtL)*ElZ( JtL) 

60  CONTINUE 
RETURN 
END 
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c  subroutine  bound  l 

SUBROUTINE  BNDYOO 

COMMON/ I NOUMP/  NREG*  RDTNM*  MOTION*  JBMIN*  JBMAX*  KBMIN* 

2  KBMAX*  TIME*  SMOM2I*  SMZTPT*  SMOMZ*  SMOMYI*  SMYTPT*  SMOMY* 

3  SENERI*  SIETPT •  SKETPT •  WORK*  SUMIE*  SUMKE*  SUMTE*  FIMPZ* 

4  FIMPY*  SMASSI*  SMSTPT*  SMASS*  PROBNO*  OTNM#  CUTOFF*  N* 

ft  KBOT*  KTOP*  MAXN*  TMAX*  OTNMN*  SFW*  OTNMPft*  DTNM2* 

4  KB*  CUT1*  CUT2*  UYLBIN*  UYBIN*  UYRBIN*  UZLBIN*  UZblN* 

7  UZRBIN*  UYLT1N*  UYTIN*  UYRTIN*  UZLTIN*  UZTIN*  UZRTIN*  KTM* 

B  JM1N*  UMAX*  KMIN*  KM AX*  JL*  J3,  JR*  JRM* 

9  KT*  E I N ( 5  I  *  KINT (ft) »  RH01N(9)*  UYlN(ft).  UZlN(ft)* 

2  TINY  A( ft ) *  TINY  B(ft)»  R  ZERO! 5 > *BETA( ft  I •  QCON(5). 

A  E  S(5 » »  ALFA(ft)*  BIG  A(ft)»  BIG  B(ft)»  RCP  V  S(5)*E  ZERO(ft)* 
4  FMLZR(IOO)*  KSV ( 24 )  *  SAV(  12 ) •  FMLYR(IOO) 

COMMON /THERE ST/  A(ft5)»  DlL  <  ftft ) •  EPX(5ft)» 

2  EPY(ftft)*  EPZ(ftft).  FMLYBI ftft )  •  FHLYT 1 55 ) •  FMLZB(ftft)* 

3  FMLZT (ftft ) •  LYltftft)*  LV2I55I*  LZlIftft)*  LZ2(35)* 

4  PY(ftft)*  PZ( ftft) •  RlH(ftft)*  R2H( ftft ) •  RSH(ftft)* 

ft  R4H(5ft)»  Z1H ( ftft ) »  Z2H(5ft ) *  Z3H<55).  Z4H(ftft|* 

6  U2 ( ftft • 2 ) •  B( ftft *4) 

COMMON/AFTERALL/ 


A 

RX ( 55*5 ) • 

RY ( ftft *5 )  • 

UNMX(ftft*ft)  • 

1 

UNMY ( ftft • ft  9 • 

UNPX (55 *5 ) • 

UNPY ( 55*5 )  • 

FHASNM(ftft*5  )  • 

2 

ENM(ftft*ft ) • 

EN(55*5) • 

PNM( 59 *5 )  * 

PN( ftft  *5 ) • 

3 

PQNMXX(ft5*ft) • 

PONMXY ( ftft  *5 ) » 

PQNMYY(ftft*ft) » 

PQNXX(ftft*ft) • 

4 

PQNXY(ftft*ft) • 

PQNYY(ft5*ft)  • 

RWA3Z (55*5)* 

RWAlZ(ftft*ft)» 

5 

RMAE3Z(9ft*ft) • 

RWAElZtftft  *5)  • 

RH3Z(55.ft)  • 

RHlZ(ftft*ft)  • 

6 

E3Z C  ft ft • ft )  • 

E1Z (ftft.ft ) • 

RHO(ftft.ft)* 

VOL( ftft *5  )  • 

7 

ETA ( ftft  *ft )  • 

A1Y (59*5) • 

A2Y ( ftft  *5 )  * 

A3Y ( ft ft • ft  )  • 

8 

A4Y (5ft *5 )  • 

A1Z ( 5ft  *5 ) • 

A2Z (55*5)* 

A3Z( ftft *5 )  * 

9 

A4Z (55*5 )  • 

F1Y ( 55  *5 ) • 

F2Y ( ftft  *5  )  • 

F3Y ( 5ft *5  )  • 

A 

F4Y ( ftft  *ft  ft • 

F1Z (55*5) • 

F2Z05.5)* 

F3Z ( ftft  *5  )  » 

1 

F 42(55*5) • 

NTPT (5ft*ft)» 

FMSNZ ( ftft »ft)» 

FMASN (ftft *5 )• 

2 

FMNMXtftft *5 ) * 

FMNMY ( ftft  *5 ) » 

FMNX( 55*5 )  • 

FMNY (55 *5)  • 

4 

AW1 (35*5 ) * 

AW 2 ( 55*5 ) * 

AW 3 ( ftft  *5 )  * 

AW4(ftft*ft)» 

5 

RXM(5ft *5 ) • 

RYM(55*5) * 

RXZ ( 5ft  *5 )  • 

RYZ ( ftft  *5 )  » 

6 

011(55*5). 

012(55*5)* 

022(99*5)* 

QX( ftft  *ft  )  • 

7 

P1K55.5)* 

P12(55*ft) • 

P22(5ft*ft) • 

PX( ftft  »ft  )  • 

8 

PQX(ftft.ft)* 

POMX(55*5) » 

V0( 5ft  *5 ) 

COMMON  ICON*  LINCT*  LXl*  LX2*  LX3*  LX4*  LXft* 
2  KC*  NOP A*  NEDIT*  NSIG*  NMASS*  NDHP 

C*«*« 

10  J«JMIN 

20  FMASN ( J  •  1 ) *FMASNM I J • 1 ) 

21  RX(J*i)»RXM(J*l)«-UNMX(J*l)*DTNM 
RY  U  *  1 )  *RYH(  J  •  1  KUNMY I J •  1 )  *DTNM 

22  UNPX ( J • 1 ) aUY  LB I N 
UNPY ( J* 1 ) ■UZLBIN 

FMSNZ( J*1)«*125*FMASN( J»1 ) 

FMNXI J*1)>0» 

FMNY ( J  *  1 ) *FMSNZ ( J • 1 ) *  IUNMYC J*1)+UNPYI J*l) ) 

00  40  JBJL* JR 

27  FMASNI J*1)>FMASNM( J*l) 

28  RX(J»1)«RXM(J*1)*UNMX(J»1)»DTNM 
RY(J*1)»RYM(J*1 I+UNMY ( J* 1 ) *OTNM 

29  UNPX(J*1)«UYBIN 
UNPY ( J* 1 )*UZBIN 

30  FMSNZ (J*l)«0*125*( FMASN  <  J  *  1 )+FMA$N( J-l • 1 ) ) 

3ft  FMNX  ( J  » 1 )  ■FMSNZ  I J  •  1 )  *,(UNMX<  J*1)-*UNPX(  J#1 )  ) 

FMNY ( J • 1 ) ■FMSNZ ( J • 1 )  * ( UNMY ( J  *  1 ) +UNP Y ( J  *  1 ) ) 

40  CONTINUE 
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J* JMAX 

60  TO  142*41*41) • HOT I ON 

41  RX ( J*1 ) *RXM( J* 1 )*UNMX ( J* 1 ) *DTNM 
RYI J* 1 ) *RYM ( J* 1  )*UNMY I J* 1 ) *DTNM 

42  UNPX ( J* 1 ) *0*0 
UNPY(J.1)*UZRBIN 

FMSNZ ( J • 1 1 «• 125*FMASN ( J- 1 • 1 ) 

FHNX(J*1)«0. 

FMNY ( J • 1 ) "FMSNZ ( J • 1 1  * ( UNMY ( J  » 1 ) +UNPY ( J  » 1 ) ) 

CALL  STRAIN 
CALL  STRESS 
CALL  C0NSCK1 
RETURN 

C*#«* 

50  L-LX1 
L2-LX2 

504  CALL  STRAIN 
CALL  STRESS 
CALL  NEWU 
CALL  CONSCKI 
J-JMIN 
KC*KMAX 

505  UNPX! J#L2I*UYLTIN 
UNPY ( J*L2 ) “UZLTIN 

FMSNZ ( J*L2 ) *• 125*FMASN ( J • L ) 

FMNXI J»L2 )*0*0 

FMNY ( J*L2 ) "FMSNZ! J*L2 )  *  I UNMY I J*L2 )+UNPY ( J *12 ) ) 

DO  80  J*JL*JR 
56  UNPX (JtL2)*UYTIN 
UNPY I J*L2 ) ■UZTIN 

FMSNZ I J • L2 )■• 125* ( FMASN I J * L) +FMA SN ( J-l • L ) > 

60  FMNXI J*L2 ) * FMSNZ ( J • L2 )  *  I UNMX I J *L2 ) +UNPX ( J *12 ) ) 

FMNY ( J »L 2 ) “FMSNZ ( J *L2 )  * I UNMY I J *L2 ) +UNPY (J *L2  .  ) 

80  CONTINUE 
90  J« JMAX 

UNPX! J*L2)*0* 

UNPYIJ.L2)*UZRTIN 

FMSNZ I J*  L2 ) *• 125»FMASN I J-l • L  > 

FMNXI J*L2I«0.0 

FMNY ( J»L2 ) “FMSNZ ( J»L2 )  * ( UNMY ( J • L2 ) +UNPY ( J . L2 ) ) 

CALL  CONSKMAX 
100  RETURN 

200  FORMAT ( 7H0FQR  J«.I6*8H  AND  K+2.10H  THE  MASS* *E17 • 9 *9H  IN  ERROR ) 

END 
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C  SUBROUTINE  CONSCK  L 

''Subroutine' cnchoo 

COMMON/ INDUMP/  NREG*  RDTNMr  MOTION*  JBMIN*  JbMAX*  KBM1N* 

2  KBMAX  *  TIME*  SMQMZ 1  *  SMZTPT.  SMOMZ •  SMOMYl*  SMYTPt •  SMOMY* 

3  SENERIe  S1ETPT*  SKETPT*  WORK*  SUMIE*  SUMKE*  SUMTt *  F IMPZ * 

4FIMPY*  S MASS I*  SMSTPT t  SMASS*  PROBNO*  OTNM*  CUTOFF.  N» 

5  KBOT*  KTOP.  MAXN,  TMAX  •  DTNMN.  SFW,  DTNMP5  *  DTNM2* 

6  KB  *  CuYlV  CUTZV  UYLB I N •  UYBIN.  UYRBIN*  UZLti I N  *  UZttIN. 

7  UZRB1N*  UYLTIN*  UYTIN*  UYRTIN*  UZLTIN.  UZTIN*  UZRTIN.  KTK* 

8  JMIN.  JMAX »  KM IN*  KMAX .  JL*  J3*  JR*  JRM* 

9  XT*  E I N ( 5 ) •  K1NT { 5 ) •  RHOIN15).  UY1N(5).  UZIN(5). 

2  fl NY  A  (  5  )  *  TINY  BIS) •  R  ZERO! 51  .BETA! 5 ) •  OCON(5)» 

A  E  S(5)*  ALFA  (  5  )  *  BIG  A  C  3  )  •  BIG  B(5>*  RCP  V  S(5).E  ZEROO)* 

. . "4  'fHL2R'(T6'0r* . . . .  KSV(24 )•  SaV  ( 12  I  •  FMLYR  ( 100 ) 

COMMON/THEREST/  A(55).  DlL(55).  EPX(55)* 

2  EPY i  55 )  *  £PZ  ( 55  ) »  FMLYB( 55 ) *  FMLYT ( 55  )  *  ~TmLZB(55). 

3  FMLZT  ( 55 )  •  LY1(55)*  LY2155).  LZ1(55)*  LZ2(55)» 

4  PY('55l.  P Z  f  5  5  )  *  R1H ( 55 ) •  R2H(55)*  R3H(55)* 

5  R4H 155).  Z 1H ( 55 ) *  Z2H(55).  Z3H(55)*  Z4H(55)* 

"6  "u2"('5'5'*T)'*'  ST5ST4") 

COMMON/AFTERALL/ 


- T 

1 

UNMY (55*5)* 

R  XT5  5*T)  » 

UNPX (55*5 ) • 

RyT5T*5T» - 

UNPY (55*5)  • 

uNmx (55*5)* 
FMASNM( 55*5 ) 

2  ENM (55*5)* 

3  PQNMXX ( 55*5 ) * 
4'TONx'Yl55V5')"." 
5  RWAE3Z (55*5)* 

EN (53*5) » 
PQNMXY (55*5)* 
'?<WyY(5'5','5')'.'' 
RWAE 1Z ( 55  * 5  )  » 

PNM( 55  *5 ) » 
PONMYY(55*5) . 
""U WA3Z  (  5~5  "*'5")~* 
RH3Z155.5) * 

PN( 55  *5 ) • 
PONXX (55*5) • 
RWA1Z ( 55*5 )  • 
RH1Z ( 55*5 ) • 

6 

7 

E3Z (55*5). 

ETA ( 55*5 ) • 

TTTT5F73TT 
A1Y ( 55  *5 ) • 

RHO ( 55  *5 ) » 

A2Y (55*5). 

VOL (55*5) » 
A3Y ( 55  *5 ) * 

8 

9 

A4Y (55*5)* 

A4Z (55*5)* 

A1Z (55*5) * 

F 1 Y ( 55 » 5 ) * 

A2Z (55*5)  • 

F2Y ( 55  *5 ) » 

A3Z ( 55  *5 ) » 
F3Y ( 55  *5 ) » 

A 

I 

F4Y (55*5)* 

F4Z ( 55  •  5  )  • 

F1Z ( 55 . 5 ) • 
NTPT (55*5)* 

F2Z( 55  *5  )  • 
FMSNZ (55*5)* 

F3Z (55*5)* 
FMASN (55*5) * 

2 

FMNMX (55*51* 

FMNMY (55*5)* 

FMNX (55*5)  • 

FMNY ( 55*5 ) » 

4 

AWK55.5). 

AW2 (55*5) • 

AM3(55»5)  . 

AW4 (55*5)* 

5 

RXM (55*5)* 

RYM ( 55*5) . 

RXZI55.5). 

RYZI55.5) * 

6 

011(55*5)* 

012(55*5) * 

022(55*5)* 

OX ( 55  *5  )  » 

r 

pii  ( 5S  *5  r» 

P12(55.5) . 

P22( 55*5)* 

PX ( 55 .5 ) * 

8 

POX (55*5) » 

PQMX (55*5 ) » 

V0( 55  *5 ) 

COMMON  ICON*  LINCT*  LXT*  LXTJ  LXTi  LX4*  LX5* 
2  XC»  NOP A i  NEDIT*  NSIG*  NMASS »  NOMP 

DIMENSION"  US Q( 2) 


L*LX  1 

_ l2;lx? _ 

L5«LX5 

J-JMIN 

JLEFT*1 

...  _ -JJSJ-Gttl.-tf _  - 

TFXY*0* 

TFXZ*0. 

- STEM-SENIOR  I - 

KL*1 

- KQV2 - 

SUMI E*EN (J»1)*FMASN(J*1) 

U2TJVrr»UN«X  ('J»T)  *UN'Px7Y*  1  )+UNMY(J,i  )  #UNPY  ( J*l) 
SUMXE-O. 

- 5K0M  Y«  F'HnxT  j"*_n - 

SM0MZ-FMNY(J*1» 

- -SRrTFTVSMYTPT'-'SMZWio 

1  SMASS* FMASN ( J* 1 ) 
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2  FMLYB(J)—F2Y(Jtl)-TFXY 

FMLZB(J)*(FMNV(  Jtl )-FMNMY( Jtl )  )*RDTNM-F2Z(  JtD-TFXZ 
FIMPY-FHLYB( J) 

FIMPZ-FMLZIM  J) 


WORK-FMLYB ( J ) *UNMX (Jtl) +FMLZB ( J ) *UNHY (Jtl) 

DO  5  J> JLt JR 

SUM1E-SUMIE+EN( Jt 1  )*FMASN( Jtl ) 
U2(Jtl)«UNMX(Jtl)*UNPX(Jtl)*UNMY(  Jtl)*UNPY(  Jtl) 
SMOMY-SMOMY+FMNX  (Jtl) 

SMOMZ-SMOMZ+FMNY (Jtl) 


3 

4 


5 

I 


7 


15 

25 


SMASS-SMASS+FMASN (Jtl) 

FMLYB( J)-(FMNX( Jtl)-FMNMX(Jtl) )»RDTNM-F1Y( J-ltl)-F2Y( Jtl)-TFXY 
FMLZB( J ) ■ ( FHNY (Jtl) -FMNMY (Jtl)) *RDTNM-F1Z ( J-l t 1 ) -F2Z (Jtl)  -TFXZ 
FIMPY-FIMPY+FMLYB  ( J) 

FIMPZ-FlMPZ+FMLZB(J) 

WORK ■WORK+FML  YB ( J  )  #UNMX ( J 1 1 ) +F MLZ B ( J ) •UNMY (Jtl) 

J-JMAX ' 

U2  ( J 1 1 )  *UNMX  (Jtl)  *UNPX  (Jtl)  ♦UNMY  (Jtl)  *UNPY  (Jtl) 

SMOMY-SMOMY+FMNX (Jtl) 

SMOMZ-SMOMZ+FMNY  (Jtl) 

FMLYB( J )  «-F 1Y ( J-l t 1 ) -TFXY 

FMLZB( J  I) ■ ( FHNY ( J  t  L) -FMNMY (Jtl)) *RDTNM-F1Z ( J-l 1 1 ) -TFXZ 
FIMPY«F|IMPY+FMLYB(J) 

F|MPZ*FIMPZ+FMLZB( J) 

WORK -WORK+FML YB ( J )  «UNMX (Jtl) ♦FMLZB ( J ) *UNMY (Jtl) 

RETURN 

» 

ENTRY  CONSCKI 

L-LX1 

L2-LX2 

L5-LX5 

J-JMIN 

JLEFT-1 

JRIGHT-2 

TXXY-0 

TXXZ-0 

SUM  1  E-SUM  I  E’fEN  ( J  t  L )  *FMASN  ( J  t  L ) 

U2  ( J  t  KU )  -UNMX  ( J  t  U  *UNPX  (  J  t  L  )  4-UNMY  ( J  t  L )  *UNP Y  (  J  t  L ) 
SMOMY-SMOMY+FMNX  ( J  t  L ) 

SMOMZ-SMOMZ+FMNY (Jtl) 

SMASS-SMASS+FMASN ( J  t  L ) 

DO  34  J-JLtJR 

SUM1E-SUMIE+ENI JtL)*FMASN( JtL)  1 

U2  (  J  t KU )  -UNMX  (  J  t  L  )  *UNPX  (  J  t  L  )  4-UNMY  ( J  t  L )  #UNPY  (  J  t L ) 

IF ( INTtEQ* 1 )  GO  TO  36 

SUMKE-SUMKE+t 125*FMASN( J-l tL5 )*(U2 ( J-i  tKL)4-U2 ( JtKL )+U2 ( J-l tKU)+ 


2  U2( JtKU) ) 

26  SMOMY-SMOMY+FMNX(  JtU 

SMOM2-SMOMZ+FMNY( JtL)  \ 

30  SMASS-SMASS+FMASN ( JtL ) 

34  CONTINUE 

35  JbJMAX  ‘ 

U2  ( J  t  KU )  »UNMX  (  J  t  L  )  *UNPX  ( J  t  L  )  4-UNMY  ( J  t  L )  tUNP Y  ( J  t  L ) 

IF ( INTtEQ. 1)  GO  TO  39 

SUMKE-SUMKE+*  125*FMASN(  J-l  tL5 )  * (U2  (  J-l  tKL  )4-IJ2  ( JtKL  )+U2  ( J-l tKU )♦ 
2  U2( JtKU) ) 


36  KL-KU 

KU*M0D(KLt2 )+l 
SM0MY»SM0MY4FHNX(  JtL) 
SMOMZ  ■  SMOMZ+F  MN  Y  ( J » L  ) 
FIMPY-FIMPY^FMLYR(KC) 
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FIMPZ-FIMPZ+FMLZRIKC) 

WORK -WORK+FMLYR I KC I  *UNMX ( J»L) +FMLZR  ( KC ) •UNMY ( J  »  L ) 

IF<  (KOlUNE.KlNTtNREO))  RETURN 
00  37  J-JMIN# JR 
SMASS-SMASS+FMASN ( J  iL2 ) 

37  SUM1E-SUMIE+EN ( J*L2) *FMA5N ( J  »L2 ) 

L4-L 

INT-l-INT 

RETURN 

38  SUMKE-SUMKE+«25*(FMASN<J-l#L4)*(U2lJ-l»KD+U2<J*KLn+FMA$NtJ-l.L5l 
2*(U2  ( J-1.KUKU2C  J#KU) ) ) 

60  TO  26  / 

39  SUMK£»SUMKE+«25*(FMA$N<J-l»L4)»(U2(J-ltKL>+U2(J»KL>)*FMASN(J-ltL5) 
2*(U2( J-ltKU)+U2( JtKU) ) ) 

INT-l-INT 
60  TO  36 

<:••••• 

L-LX2 

L5-LX1 

J-JMIN 

JLEFT-1 

JRI6MT-2 

TXXY-0 

TXXZ-0 

40  U2 ( J • KU ) ■ UNMX ( J  t  L ) *UNPX ( J • L ) +UNMY ( J • L ) *UNP  Y ( J  *  L ) 

SMOMY -SMOMY+FMNX <  J • L I 

SMOMZ-SMOMZ+FMNY ( J*L) 

50  FMLYTIJI— F3Y(J*L5l-TFXY 

FMLZT ( J  )■  ( FMNY ( J • L ) -FMNHY ( J  •  L  ) ) *RDTNM-F3Z ( J»L5  ? -TFXZ 
F1MPY-FIMPY+FMLYTU) 

FIMPZ-FlMPZ+FMLZTU) 

WORK -WORK+FMLYT ( J ) *UNMX ( J*L ) ♦FMLZT  ( J ) *UNMY ( J • U 
00  65  J-JL.JR 

U2 ( J • KU )  -UNMX  ( J  t  L )  *UNPX  ( J  •  L )  ♦UNMY  ( J  *  L )  *UNP Y  ( J  t  L ) 

SUMKE-SUMKE+* 125*FMASN ( J-l • L5 ) * ( U2 ( J- 1 • KL ) +U2 ( J  *KL ) +U2 ( J- 1 1  KU ) ♦ 

2  U2( J»KU) ) 

SMOMY-SMOMY+FMNX ( J  •  L ) 

SMOMZ-SMOMZ+FMNY ( J » L) 

60  FMLYTUI-<FMNXIJ*L»-FMNMX«J*U)*RDTNM-F3Y<  J*L5)-F4YI J-1#L5 l-TFXY 
FMLZT  ( J )  •  ( FMNY  ( J  •  L )  -FMNMY  ( J*L)  I  *RDTNM-F3Z  I J  »  L5 » -F4Z  C  J-l  *  L5  I  -TFXZ 
FIMPY-FIMPY+FMLYT I J) 

FIMPZ-FIMPZ+FMLZTU) 

65  WORK-WORK+FMLYT  ( J  )  *UNMX  ( J#L )  +FMLZT  ( J )  #UNMY  ( J  *  L ) 

J-JMAX 

U2<  J»KU)-UNMX(J»L)«UNPX(J»LKUNMYIJ»U*UNPY(  JtL) 
SUMKE-SUMKE+»125*FMASN(  J-1»L5)*(U2(  J— 1»KL\)+U2(  J»KL)+U2(  J-1*KU)  + 

2  U2( J»KU) ) 

SMOMY-SMOMY+FMNX I J • L I 
SMOMZ-SMOMZ+FMNY ( J*L ) 

75  FMLVT  <  JI--F4YJI  J-l  *L5  l-TFXY 

FMLZT  I J I  -  ( FMRY  ( J  •  L )  -FMNMY  ( J»L)  )*RDTNM-F4Z  ( J-l  •  L5 )  -TFXZ 

FIMPY-FIMPV+FMLYTCJI 

FIMPZ-FIMPZ4FMLZTIJI 

WORK ■ WORK+FML  Y  T ( J I «UNMX ( J • L ) +FMLZ  T  <  J I *UNMY ( J  .  L ) 

SUMTE-SUMIE+SUMKE 
SMASSI -SMASS1-SMSTPT 
WORK-WORK*OTNM 

SENER I -SENER I +WORK-SI ETP  T-SKE TPT 
FIMPY-<FIMPY+SFW)*DTNM 
FIMPZ-FIMPZ*0TNM 
SMOMYI-SMOM; I  FIMPY  -SMYTPT 
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SMCM2 I  ■  SMOMZ 1 +F I MPZ-SMZ  TP  T 
RETURN 

108  FORMAT I1H0/  — - 

249H  NO  JMIN  CONTRIBUTION  CALCULATION  IN  THIS  PROGRAM/) 
ENO 


C  SUBROUTINE  ENERGY  L 

SUBROUTINE  EGYLOO 

.  COMMON/ 1 NDUMP /  NR EG*  ROTNMt  MOTION*  JBM1N*  JBMAX*  KBM1N* 

2  KBMAX *  TIME*  SMOMZI*  SMZTPT*  SMOMZ*  SMOMYI*  SMYTPT*  SMOMY* 

3  SENERI •  SIETPT •  SKETPT •  WORK*  SUMIE*  SUMKE*  SUMTE*  FIMPZ* 

4  FIMPY*  SMASSI*  SMSTPT*  SMASS*  PROBNO*  OTNM*  CUTOFF*  N* 

3  KBOT*  KTOP*  MAXN*  TMAX*  OTNMN*  SFW*  DTNMP5*  OTNM2* 

6  KB*  CUT  1*  CUT2*  UYLBIN*  UYdIN*  UYRBIN*  UZLBIN*  UZBIN* 

7  UZRB1N*  UYLT IN*  UYT1N*  UYRTIN*  UZLTIN*  UZT1N*  UZRTIN*  KTM* 

8  JMIN*  JMAX*  KMIN*  KM AX*  JL*  J3.  JR*  JRM* 

9  KT*  E1N15 ) •  K1NT IS)*  RHOIN(5)*  UYIN(5)*  UZIN(5)» 

2  TINY  A( 5 ) •  TINY  BC5> •  R  ZERO( 5 ) *BETA( 5 ) .  QCON(5)* 

A  E  S ( 5 ) »  ALFA( 5 ) •  BIG  A(5)*  BIG  B(» I •  RCP  V  S(5)»E  ZERO(5)* 

4  FMLZR  ( 100 )  •  KSVC24)  *  SAV(12).  FMLYR(IOO) 

COMMON/ THEREST/  A(55)*  DIL(55)»  EPX(55I* 

2  EPY ( 55 ) •  EPZ ( 55 ) •  FMLYB(55)»  FMLYTI55) •  FMLZB(55)» 

— ^  3  FMLZT ( 55 ) *  LY1 (55) •  LY2C55)*  LZ1(55) •  LZ2(55)» 

.  .  4'PY (55 )•*  PZ( 55) •  R1H( 55 )  •  R2H(55)*  R3H(55)* 

5  R4H(55)»  —  Z1H(55)*  Z2H(55)*  Z3H(55)*  Z4H(55)* 

6  U2 (55*2) •  B(55*4) 

/  COMMON/AFTERALL/ 

A  RX( 55*5 ) •  RY ( 55*5 )  •  UNMX(55*5)» 

1  UNMY( 55  *5 ) •  UNPX(55*5 ) •  UNPY(55*5)»  FMASNM(55*5 )  • 

2  ENM(55»5) •  EN(55*5)*  PNM(55.5).  PN(55*5)» 

3  PQNMXX(55*5  )  •  PQNMXY< 55 *5 ) *  PONMYY(55*5) •  PUNXX(55*5)* 

4  PQNXY(55*5 ) •  PONYY(55*5).  RWA3Z(55*5)»  RWA1Z(55*5)» 

5  RWAE3Z(55*5  )  •  RWAE1Z( 55 *5 ) .  RH3Z(55*5)»  RH1Z(55*5)* 

6  E3Z (55*5)*  EIZ(55*5) •  RHO(55*5)*  VOL(55*5)* 

7  ETA (55*5 ) •  A1Y(55*5)»  A2Y(55*5)*  A3Y(55*5)» 

6  A4Y (55*5)*  A1Z ( 55 *5 ) •  A2Z(55*5)»  A3Z(55*5)» 

9  A4Z (55*5 ) •  FIY ( 55 *5 ) •  F2Y(35.5».  F3Y(55*5). 

A  F4Y (55*5)*  F1Z(55*5)*  F2Z(55*5)*  F3Z(55*5)» 

'  1  F4Z (55*5 ) •  NTPT(55*5) •  FMSNZ(55*S)*  FMASN(55*5)* 

2  FMNMX(55*5 ) •  FMNMY(55*5)*  FMNX(55»5)*  FMNY(55*5)* 

4  AW1 (55*5 ) •  AW2(55*5) *  AW3(55*5)*  AW4(55*5)» 

5  RXM(55*5 ) •  RYM(55*5) •  RXZ(55»5)»  RYZ(5S*5>* 

6  011(55*5) •  012(55*5)*  022(55*5)*  OX(55*5)* 

7  Pll (55*5  )  •  P12 ( 55 • 5 ) •  P22(55*5)*  PX(55*5)» 

8  PQX (55*5)*  PQMX(55*5 ) •  V0(55*5) 

COMMON  ICON*  UNCT*  LXl*  LX2*  LX3*  LX4*  LX  5* 

2  KC*  NOP A*  NbOIT*  NSIG*  NMASS*  NOMP 

C**«* 

ENTRY  ENERGYP2 
L-LX3 
E2-LX4 
40  TO  1 

C**«* 

L«LX1 

L2-LX2 

1  TFXE-O. 

2  00  100  J» JMIN* JR 

EN(  J*L)*(ENM(  J*L)*FMASNM(  J*L)-OTNM»(UNMX(  J+1*L)*F1Y(  J*L)^UNMY(  J-fl* 
1  L)*F1Z( J*L) 

1  ♦UNMX(  J*L)*F2Y(  J*L)^UNMY(  J*L)*F2Z(  J*L)^UNMX  ( J*L2  )*F3Y(  J*LI‘*> 

2  UNMY (J*L2)*F3Z(J*L) ♦UNMX (J^l*L2)*F4V(J*L) ♦UNMY ( J*1 *  L2 ) *F4Z ( J • L ) - 

3  TFXE) ) /FMASN( J*L) 

1F( ABS(EN( J*L)~ENM( J*L) J-CUT1) 10*10*100 
10  EN( J»L)*ENM( J»L) 

100  CONTINUE 

105  RETURN 

END 
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n  n  n 


C  SUBROUTINE  FLOW ' L 

subroutine  flowcJo 

COMMON/ INDUMP/  NREG*  RDTNM*  MOTION.  JBMIN.  JBMAX*  KBMIN* 

2  K8MAX*  TIME*  SMOMZI*  SMZTPT*  SMOMZ*  SMOMYl*  SMYTPT *  SMOMY* 

3  SENERI •  SIETPT*  SKcTPT*  WORK*  SUMIE*  SUMKE*  SUMTE*  FIMPZ* 

4  F1MPY*  SMASSI*  SMSTPT*  SMASS*  PROBNO*  OTNM*  CUTOFF*  N* 

5  KBOT*  KTOP.  MAXN*  TMAX*  OTNMN*  SFW*  DTNMP5*  OTNM2* 

6  KB*  CUT1*  CUT2*  UYLBIN*  UYBIN*  UYRB1N*  UZLBIN*  UZB1N* 

7  UZRBIN*  UYLT1N*  UYTIN*  UYRTIN*  UZLT1N*  UZTIN*  UZRTIN*  KTM* 

6  JMIN*  JMAX*  KMIN*  KMAX*  Jl*  J3.  JR*  JRM* 

9  KT*  E1N(5 I •  KINT ( 5) .  RHOIN<5)*  UYIN(S)*  UZIN(5)* 

2  TINY  AC 5) •  TINY  B<5)*  R  ZERO(5) *BETA(5) •  QCON(5)* 

A  E  SCSI*  ALFA(  5  J  •  BIG  AIM*  BIG  0(5)*  RCP  V  S(5).t  ZERUCbl* 

4  FMLZR(IOO)*  KSVI24 ) •  SAV ( 12 )  •  FMLYR( 100) 

COMMON/ THEREST/  A(55)*  DIL(55)*  EPX(55)» 

2  EPY ( 55 )  *  EPZ ( 55 )  *  FMLYB( 55 ) •  FMLYT ( 55  )  •  FMLZB( 55 ) • 

3  FMLZT (551*  LY1 ( 55 ) •  LY2(55»*  LZ1( 55  )  •  IZ2<55>* 

4  PY ( 55 )  *  PZ ( 55 ) •  R1H(55 ) •  R2H(55)»  R3HI55I* 

5  R4H ( 55  ) .  Z1HI55 ) •  Z2H(55).  Z3H(55)*  Z4HI55)* 

6  U2 ( 55 *2 ) •  B(55*4) 

COMMON/AFTERALL/  > 

A  RX (55*5 )  •  RY( 55*5 ) •  UNMX(55.5»* 

1  UNMY  C  55  *51*  UNPX(55*5»*  UNPY(55*5)*  FMASNM(55*5 ) • 

2  ENM (55*5)*  EN(55*5)*  PNM(55*5)»  PN(55.5>. 

3  PONMXX(55.5 ) •  PQNMXY ( 55 .5 )  .  PONMYY ( 55*5 ) •  PONXX(55.5)* 

4  PONXY ( 55*5 ) •  PGNYY(55*5).  RWA3Z(55*5)»  RWA1Z(55.5)* 

5  RWAE3Z  (55*5)*  RWAE1Z  (  55  *5 1  •  RH3Z(55*5)»  RH1Z(55^)» 

6  E3Z (55*5)*  E1Z ( 55 *5 )  •  RHO(55*5)»  VOH55.5). 

7  ETA  ( 55  *5 ) »  A1YI55.5)*  A2Y(55*5)»  A3Y(55*5)»  *■ 

6  A4Y (55*5) •  A1Z(55*5).  A2Z(55*5)»  A3Z(55*5)» 

9  A4Z (55*5) •  F1Y (55  *5  )  *  F2Y(55*5).  F3Y(55.5|* 

A  F4Y (55*5) •  F1ZI55.5)*  F2Z(55*5)»  F3Z(55*5)» 

1  F4Z ( 5  5  •  5 ) •  NTPT (55*5)*  FMSNZ(55*5J*  FMASN(55*5)* 

2  FMNMX(55*5 ) •  FMNMY(55*5).  FMNX(55*5|*  FMNY(55*5)» 

4  AW1 (55*5) •  AW 2 (55*5)  •  AW3(55*5)»  AW4(55*5). 

5  RXM( 55*5 ) •  RYM(55*5).  RXZ(55*5)*  RYZ(55*5)» 

6  011(55*51*  012(55*5)*  022(55*5)*  OX(55*5)* 

7  Pll (55*5) •  P12 ( 55 *5 ) •  P22(55»5)»  PX(55*5)» 

B  POX (55*5)*  PQMX (55*5) •  V0<55*5) 

COMMON  ICON*  LINC’T*  LX1*  LX2  *  LX3*  LX4*  LX5  • 

2  KC*  NOPA*  NEOIT*  NSIG*  NMASS*  NOMP 

KC*1 
LINCT-1 
NR EG *1 
LX  1*1 
LX2-2 
LX3-3 
LX4«4 
LX5»5 

DO  10  L>1*4 
DO  10  J«JMIN* JMAX 
10  B( J»L)"0*0 

•READ  IN  4  K  LINES  1ST  CALL  ONLY 

CALL  LINEIN4 
20  CALL  B0UNDK1 
LX0-LX1 
LX1-LX2 
LX2*LX3 
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LX3«LX4 

LX4«LX5 

LX5-LX0 

DO  50  K-KB»XTM 
' .XC*K 

1F(K*EQ»KTM)G0  TO  35 
CALL  LINEIN1 

35  IF! f K+l) •LT«K1NT(NREG) )60  TO  41 
IF( ( K+l ) •OTcKlNT ( NREG) >60  TO  34 
CALL  INFACE 

60  TO  4100 

36  1 F I ( K-l ) •NE«KINT(NREG) )  60  TO  415 
NREG-NREG+1 

60  TO  4100 
41  CALL  STRAIN 

CALL  STRESS 
4100  CALL  NEWU 

CALL  CONSCKl 
415  CALL  LINOUT 

IF  (K.EQ.KB)  60  TO  45 
DO  43  L*l»3 
00  43  J-JNlN.JMAX 
43  B(J»L)*B( J*L+1I 
45  LX0-LX1 
LX1«LX2 
LX2-LX3 
LX3-LX4 
LX4«LX3 
LX5-LX0 
50  CONTINUE 
KC-KT 

CALL  BNOYKMAX 

C 

C - WRITES  OUT  3  X  LINES  LAST  CALL  ONLY 

C 

CALL  LINOUT 

RETURN 

ENO 
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- - 


subroutine  force 
subroutine  frcloo 


COMMON/ INDUMP/ 


KBMAX*  TI 
SENERI •  SI 
FIMPY.  SM 
KBOT.  XT 
KB.  CU 
UZRBIN.  UY 
JMIN.  JM 
KT. 

TINY  A(5). 
E  S  ( 5  )  . 


P/  .  NREG* 
TIME.  SMOMZI. 
SIETPT .  SKETPT . 
SMASS1 .  SMSTPT . 
KTOP.  MAXN. 
CUT  1 .  CUT2. 
UYLTIN.  UYT1N. 
JMAX.  KMIN. 
EIN(  5 ) .  K 
TINY  B(5).  R 
ALFAl 5 ) .  B 


ROTNM. 

.  SMZTPT. 
.  WORK. 

•  SMASS. 
TMAX. 
UYLBIN. 
UYRT1N. 
KMAX. 
KINT(5). 


MOTION* 

SMOMZ* 

SUM IE* 

PROBNO* 

OTNMN. 

UYBIN* 

UZLTIN. 

JL. 


JBM1N. 

SMOMYI . 

SUMKE. 

DTNM. 

SFW* 

UYRBIN. 

UZTIN* 

J3. 


JBMAX* 

SMYTPT* 

SUMTE* 

CUTOFF* 

DTNMP5* 

UZLBIN* 

UZRTIN* 

JR* 


RHOINI5) * 


.  FMLZR(IOO). 
COMMON/THEREST/ 


R  ZERO(5) .BETAI5) • 
BIG  At 5 ) •  BIG  BIS)* 


►  KBM1N* 
r*  SMOMY* 
.  F1MPZ* 
r.  N* 
it  OTNM2* 
it  uzbin* 

it  KTM* 
JRM* 

UZINISI* 


*  ** 


EPYC55I. 
FMLZT ( 55 ) . 
PYI55). 

R4H  ( 55  )  » 
U2155.2). 


COMMON/AFTERALL/ 


EPZC55). 
LY1(55) . 
PZI 551* 
Z1HISS). 
8(55.4) 


KSVI24) • 

A( 55 ) • 
FMLYBI 55 ) • 
LY2 ( 55 )  • 
R1H(55). 
Z2HI55). 


UYINI 5 ) •  UZINI 5  )  • 
QCONI5)* 

RCP  V  SI5) *E  ZERO  1 5 


SAVI 12) . 
DILI55) * 
FMLYTI55). 
LZl (55) • 
R2H<55)» 
Z3H(55). 


FMLYRI 100) 
EPXI55) • 
FMLZBt  55 ) • 
LZ2(55) • 
R3H( 55 ) • 
Z4H( 55 ) • 


A 

RXI55.5). 

RY ( 55 .5 )  • 

UNMX(55*5)  • 

1 

UNMYI55.5) » 

UNPX(55*5) • 

UNPYI55.5). 

FMASNMI55.5 )  • 

2 

ENM155.5 ) • 

EN 1 55*5 )  • 

PNM(55*5)  • 

PN(55*5)  • 

3 

PONMXX(55»5 ) • 

PONMXY (55.5). 

PONMYYI55.5)  . 

PONXX( 55 *5 )  • 

4 

PQNXY (55.5). 

PONYY (55.5). 

RWA3Z (55*5)* 

RWA1ZI55.5). 

5 

RWAE3Z (55*5). 

RWAE1Z (55.5). 

RH3Z155.5)  • 

RH1Z ( 55 • 5  )  • 

6 

E3Z (55.5)* 

E1ZI55.5). 

RHOI55.5)* 

VOL (55 *5  )  • 

7 

ETAI55.5). 

A1Y (55*5). 

A2Y (55*5)* 

A3Y ( 55*5  )  • 

8 

A4Y (55.5)* 

A1Z ( 55  *5 ) • 

A2Z (55.5)* 

AiZ(55.5). 

9 

A4Z (55*5). 

F1YI55.5). 

F2Y (55*5)* 

F3Y ( 55*5 )  • 

A 

F4YI55.5). 

F1Z (55*5). 

F2Z(55*5)  * 

F3Z( 55*5 )  • 

1 

F4Z (55*5). 

NTPT (55*5). 

FMSNZ (55*5)* 

FMASN( 55  *5 )  • 

2 

FMNMX( 55.5 ) • 

FMNMY 1 55.5 ) > 

FMNX (55.5)  • 

FMNY (55*5 )  • 

4 

AW1J55.5). 

AW2 (55.5). 

AW3 ( 55.5)* 

AW41 55*5 )  • 

5 

RXMI55.5). 

RYM( 55.5). 

RXZ(55*5)  * 

RYZ (55*5)  • 

6 

011(55.5). 

Q12 (55.5). 

022(55*5)* 

QX( 55  *5  )  • 

7 

Pll (55.5 ) • 

P12I55.5). 

P22I55.5)  • 

PX(55*5) * 

• 

PQXI55.5)* 

PQMXI 55*5 ) • 

VO ( 55.5 ) 

2 


COMMON 
l  KC. 

| 

L-LX3 
L2-LX4 
SUMER-2. 
GO  TO  2 


ICON. 
NOP  A. 


LINCT* 

NEDIT. 


LXl . 
NSIG. 


LX2. 
NMASS » 


LX3. 

NDMP 


LX4. 


LX5  * 


SUMER-2. 

SUMER-1* 

L-LX1 

L2-LX2 

IF ( KC.EQ. 1 )  SFW-O* 

00  100  J-JMIN* JR 

IF ( ( MOT  I ON. EO. 1 ) .AND* ( N.GT. 1 ) )  GO  TO  502 

RB1-R2H( J)4*5 

RB2-R1HI J)*.5 

RB3-R4HI J)»*5 

RB4-R3H(J)«*5 

ZB1-Z2HI J)**5 

Z82«Z1H( J)*.5 

ZB3*Z4H( J)**5 


5 

10 


15 

20 


24 

25 


ZB4«Z3HCJ)*.5 

YDB*SQRT( IRB2  **2^RB2  *RB1  ♦RBI  #*2)/3.) 

20B-URB2  -YDB)«ZB1  ♦(Y0B-RB1  )*ZB2  )/(RB2  -RBI  ) 

DEM0-RB3  -RB2 

IF ( DEMO»EQ*0 )60  TO  5 

Y2B*SQRt ( (RB3  **24RB3  *RB2  ♦RBZ  •*2)/3»l 

Z2B*  ( (RB3  -Y2B) *ZB2  ♦( Y2B-RB2  )*ZB3  l/DEMO 

60  TO  10 
Y2B-RB2  i 

Z2B««9*(ZB2  ♦ZBS  ) 

Y3B-SQRTMRB3  **2^RB3  *RB4  ♦RBA  **2)/3.) 

Z3B* t  (RB4frY3B)#ZB3+l  Y3B-.RB3 )*ZB4) /(RB4-RB3 ) 

0EH02«RBlrRB4 

IF ( DEM02«EQ*0)  60  TO  15 

YAB*SQRT ( |RB4  »*2^RB4  *RB1  ♦RBI  **2)/3.) 

ZAB •  ( ( RB1-\YAB ) *ZB4+ I YAB-RB4 )*ZB1 1  /DEM02 
60  TO  20  \ 

YAB-RB1  , 

ZAB««5*(ZB4  ♦ZBl  ) 

Y24-RB2  -RB4 
Z24-ZB2  -1B4 

Y13-RB1  -RB3 
Z13-ZB1  -Z*3 

Y2P4-R82  ♦I^BA 
Z2P4-ZB2  ♦ZB  4 
Y1P3-RB1  ♦RlS 
Z1P3-ZB1  ♦ZBS 
AR«.5*(Y24*Z13-Y13*Z24> 

Y1P2*RB1  ♦RB2 
Y2P3-RB2  ♦RBI 
Y3P4-RB3  ♦RBA 
Y4P1-RB4  ♦RBI 
Z12-ZB1  -ZB2  ‘ 

Z23-ZB2  -ZB3 
Z34-ZB3  -ZB4 
Z41-ZB4  -ZBl 

YA  ■<Z12«fYlP2«*2-RBl  *RB2  KZ23*( Y2P3**2-RB2  *RB3  !♦ 

1  Z34*(Y3P4**2-RB3  *RB4  )+Z41*< Y4P1»*2-RB4  *Rbl) ) /(6.*AR) 

ZA  ■ I Y24*Z 1 3#Z 1P3-Y 1 3*Z24*Z2P4-Z 1 3»Z24*  C  Y 1P3-Y2P4 ))/( 4. #AR ) 

00  40  1*1*5 

YOBAB  ■YDB-YAB 

ZOBAB  ■ZDB-ZAB 

Y1A-RB1  -YA 

Z1A«ZB1  -ZA 

YDBPA6-YDB+YAB 

Z0BPAB*Z0B4ZA8 

Y1PA*RB1  ♦YA 

Z1PA-ZB1  ♦ZA 

AR 1 ■ . 5* ( YOBAB«Z 1A-Y 1 A«ZOBAB ) 

Y1P0B-RB1  ♦YOB 
Y06PA  *YDB^YA 
YAPA6  ■YA^YAB 
YABPl-YAi+RBl 
Z1DB-ZB1  -Z OB 
ZOBA  ■ZOB-ZA 
ZAA6  -ZA-ZAB 
ZABWAB-ZB1 

Y1  *(Z1DB4( Y1P0B**2-RB1  *YOB I ♦ZOBA* I YDBPA**2-YDB*Y  A ) ♦ZAAb* 

1  CYAPAB**2-YA4YAB)^ZAB14«YABP1*42-YAB*RB1  ))/(6.*ARl) 

Z 1  ■ ( YDBA6*Z 1 A*Z 1PA-Y 1 A*Z0BAB4Z0BPAB-Z 1 A*ZDBAB« I Y 1PA-Y0BPAB I > / 

1  (4.*ARi) 
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Y2A  *RB2  -YA 

12 A  *ZB2  -ZA 

YDB2B  ■YDB-Y2B 
Z0B2B  *Z0B-Z2B  > 

Y2PA-RB2  *YA 

Z2PA*ZB2  +ZA 

Y0BP2B  >Y0B+Y2B 

Z0BP2B  -Z0B+Z2B 

AR2  ■•5*(Y2A*ZDB2B-YDB2B*Z2A) 

YDBP2-YOB+RB2 
Y2P2B*RB2  +Y2B 
Y2BPA  *Y2B*YA 
YAPOB  *YA+YDB 
ZOB2  *ZDB-ZB2 
Z22B  *ZB2  -Z2B 
Z2BA  -Z2B-ZA 

ZAOB  -ZA-ZDB 

Y2* (ZDB2*( YDBP2**2-YDB*RB2  )*Z22B*<Y2P2B**2-RB2  *Y2B)+Z2BA* 

1  ( Y2BPA**2-Y2B*YA ) +ZADB* ( YAPDB**2-YA#YDB I )  /  < 6.*AR2 ) 

Z2  *(Y2A«ZDB2B*ZDBP2B-YDB2B«Z2A»Z2PA-ZDB2B*Z2A*(YDBP2B-Y2PA) ) 

1/  ( 4**AR2 ) 

Y2B3B  *Y2B-Y3B 

Z2B3B  -Z2B-Z3B 

YA3-YA-RB3 
ZA3-ZA-ZB3 
Y2BP3B  ■ Y2B+Y3B 

Z2BP3B  ■Z2B+Z3B 

YAP3«YA*RB3 
ZAP3-ZA+ZB3 

AR3«.5*CY2B3B*ZA3-YA3#Z2B3B) 

YAP2B  'YA+Y2B 

Y2BP3*Y2B+RB3 
Y3P3B-RB3  +Y3B 
Y3BPA  -Y3B+YA 

ZA2B  »ZA-Z2B 

Z2B3-Z2B-ZB3 
Z33B*ZB3  -Z3B 
Z3BA  «Z3B-ZA 

Y3aUA2B*IYAP2B**2-YA*Y2Bl«>Z2B3*tY2BP3*«2-Y2B»RB3  )+Z33B* 

1  (Y3P3B**2-RB3  *Y3B J*Z3BA*l Y3BPA**2-Y3B*YA| )/<6.*AR3l 
23  ■<Y2B3B*ZA3*ZAP3-YA3*Z283B*Z2BP3B-ZA3*Z283B*(YAP3-Y2oP3o> I 

1/  <4.*AR3) 

YA4«YA-RB4 

ZA4«ZA-ZB4 

YAB3B  »YAB-Y3B 

ZAB3B  «ZAB-Z3B 

YAP4-YA+RB4 

ZAP4*ZA+ZB4 

YABP3B  *YAB*Y3B 

ZABP3B  «ZA8+Z38 

AR4«.5*<YA4*ZAB3B-YAB3B*ZA4) 

YABPA  «YAB*YA 

YAP3B  *YA*Y3B 

Y3BP4«Y3B*RB4 
Y4PAB»RB4  ♦YAB 

ZABA  -ZAB-ZA  r 

ZA3B  >ZA-Z3B 

Z3B4-Z3B-ZB4 
Z4AB*ZB4  -ZAB 

Y4  • ( ZABA* ( YABPA**2-Y Afl*YA ) +2A3B* ( Y AP3B**2-Y A*Y  3B ) * 

1  Z3B4*<Y3BP4**2-Y3B*RB4  )+Z4AB* ( Y4PAB**2-RB4  *YAB ) ) / ( 6*»AR4 ) 
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24  *(YA4*ZAB3B»ZABP3B-YAB3B*ZA4*ZAP4-ZAB3B»ZA4*(YABP3B-YAP4> > 

1  /(4.«AR4) 

Ti  *Y1*( YAB-YOB) 

T2  *Y3*(Y3B-Y2B) 

All  «T1+T2 

T3  *Y1»(ZAB-ZDB) 

T4  *Y3*( Z3B-Z2B) 

A12  ■T3+T4 

T3  *Y2*( YDB-Y2B) 

T6  *Y4*(YAB-Y3B) 

A21  *T5+T6 

T7  «Y2#(ZDB-Z2B> 

TB  *Y4* (ZAB-Z3B ) 

A22  *T7*TB 

B1*RB1  *T3-ZB1  *T1*RB3  *T4-ZB3*T2 

B2«ZB2  *T5-RB2  *T7*ZB4  •T6-RB4*TB 

0EM03  ■A12«A21-A22*A11 

YAM*YA 

ZAM-ZA 

YA  *(A21*B1*A11#B2)/DEM03 

ZA  ■ ( A22*B1+A12*B2 ) /DEMO 3 

I F ( ( ABS( YAM-YA) .LT. ( YA*10«E-B) ) .AND. ( ABS(ZAM-ZA) .LT. (ZA*lO.E-0 ) > 1 
1  GO  TO  50 
40  CONTINUE 

50  GO  TO  (502 *505 *505) • HOT I ON 

502  ARH1*ARH4*AW1(J.L) 

ARH2"ARH3-AW2(J»L) 

IF ( SUMER.E0.2 )  GO  TO  535 
Q11(J.L)*QU(J.L)*(  ARHl*ARH2+ARH3«fARH4 ) 

Q22(J.LI*QX( J.L)*Q11(J*L> 

GO  TO  535 

505  I F I RB2.E0.RB1)  GO  TO  51 

GO  TO  52 

51  FDB-.5 
GOB* .5 
GO  TO  53 

52  FDB*(RB2-Y0B)/(RB2-RB1> 

GOB* ( Y0B-RB1 ) / ( RB2-RB1) 

53  YDBN*F0B*RX(J«-1*L)*GDB«RX(J»L> 

ZOBN*  FOB«R Y ( J+l *L ) ♦GOB*R Y ( J . L I 
YDBNM«FDB#RXM ( J* 1 • L ) ♦GOB«RXM (J.L) 

ZOB  NN*  FOB*R YH ( J* 1 • L ) ♦GDB*RYM (J.L) 

IF(RB3.NE.RB2)  GO  TO  531 

F2B-.5 
G2B*«5 
GO  TO  532 

531  F2B*(RB3-Y2B)/(RB3-RB2) 

G2B* ( Y2B-RB2 ) / ( RB3-RB2 ) 

532  Y2BN*F2B»RX(J.L)«-G2B«RX(J»L2) 

Z2BN*F2B«RY ( J.L)+G2B*RY( J»L2 ) 

Y2BNM*F2B*RXH (J.L) +G2B#RXM( J.L2 ) 

Z2BNN*F2B*RYH( J  *L ) ♦G2B*RYH ( J  »L2 ) 

F3B* ( RB4-Y3B ) / (RB4-RB3 ) 

G3B*(Y3B-RB3)/(RB4-RB3) 

Y3BN  *F3B*RX(J.L2)+G3B*RX( J+1.L2) 

Z3BN  *F3B«RY  ( J . L2  )  ♦G3B*RY  ( J4>1  »L2 ) 

Y3BNH*F  3B*RXM ( J . L  2 ) +G3B*RXM( J* 1 • L2 ) 
Z3BNM*F3B*RYM(J.L2M>G3B»RYM(J*1.L2) 

1F(RB4.NE*RB1)  GO  TO  533 

FAB*«5 

GAB*. 5 
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GO  TO  534 

533  FAB* (RBl-YAB ) / ( RB1-RB4 ) 

GAB* ( YAB-RB4 ) / ( RB1-RB4 ) 

534  YABN  *FAB#RX ( J+l »L2 )+GAB*RX ( J+l • L ) 

ZABN  *FAB#RY ( J+l ,L2 ) +GAB*RY (  J+l • L ) 

YABNM«F AB*RXM ( J>1 »L2 ) +GAB*RXM ( J+ 1 , L ) 

ZABNM*FAB*RYM( J+l »L2 )+GAB*RYM( J+l »L  ) 

ARN1  *0. 5«  C ( YDBN-YABN ) * ( RY ( J+l • L ) -Z  A ) - ( RX ( J+l .L ) -YA > *  C  ZDBN-ZAtiN ) ) 
ARNM1».5*(  (YDBNM-YABNM)*(RYM( J+1.L)-ZA)-(RXM( J+1.L)-YA)* 

1  (ZDBNH-ZABNM) ) 

ARN2  *.5#( (RX(J.L)-YA)*( ZDBN-Z2BN ) - ( YDBN-Y2BN ) * ( RY ( J * L  )-ZA ) I 
ARNM2«.5*( ( RXM ( J • L ) -Y A ) * (  ZObNH-Z 2  BNM ) - ( Y  DBNM-Y2  BNM ) * ( R YM ( J . L ) -Z A ) ) 
ARN3  *  .5*  ( ( Y 2BN-Y3BN ) * ( ZA-RY ( J  *L2  J ) - ( YA-RX ( J »L2 ) ) * ( Z2BN-Z3BN ) ) 
ARNM3**5»( ( Y2BNM-Y3BNM ) * (ZA-RYM( J  *L2 ) )  -  ( YA-RXM( J  »L2 ) ) * ( Z2BNM- 
1  Z3BNM) ) 

ARN4  «.5*( ( YA-RX ( J  +  l » L2 ) ) * ( ZABN-Z3BN ) - ( YABN- Y 3 BN ) * ( ZA-RY ( J+l * L2  ) ) ) 
ARNM4-.5*( I Y A-RXM ( J  + 1 • L2  ) )  *  ( Z ABNM-Z  3BNM ) - (  Y ABNM-Y 3BNM ) * ( ZA- 
1  RYM( J+l »L2  )  )  ) 

AW  1 ( J • L ) * ( AR 1 + ARN 1 +ARNM 1 )  /  3  • 

AW2 ( J  •  LI  * ( AR2+ARN2+ARNM2 ) / 3 . 

AW3 ( J • L ) ■ ( AR3+ARN3+ARNM3 ) / 3. 

AW4 (  J  ,  L )  *  ( AR4+ARN4+ARNM4 ) / 3  • 

535  PI  IB*. 5*  ( Pll  ( J.L)  ♦Oil  ( J.L)+PQNMXX( J.L ) ) 

P12B*.5*( P12 ( J.L ) +Q12 ( J. L ) +PQNMXY ( J.L ) ) 

P22B*.5*( P22 ( J  »L ) +Q22 ( J.L )+PQNMYY (J.L)) 

PXB*.5*(PX( J.L)+QX( J.L)+PQMX( J.L) ) 

A1YR*A2Y{ J.L)-AWl(J.L) 

F1Y(J.L)*P11B*A1YR+P12B*A2Z( J.L)+PXB*AWi(J.L) 

F 1Z ( J .L ) *P12B»A1YR+P22B*A2Z (J.L) 

A2YR-A1Y (J.L )-AW2 (J.L) 

F2Y (J.L) *P1 1B*A2YR+P12B*A1Z (J.L) +PXB*AW2 (J.L) 

F2Z( J.L)*P12B*A2YR+P22B*A1Z(J.L) 

A3YR*A4Y (J.L )-AW3 ( J.L ) 

F3Y(J.L)*P11B*A3YR+P12B*A4Z( J »L ) +PXB+AW3 ( J.L) 

F3Z( J.L)*P12B*A3YR+P22B*A4Z( J.L) 

A4YR*A3Y( J.L)-AW4( J.L) 

IF  (  SUMER.EQ.2 )  SFW*PXB«  ( AWi  ( J .L ) +AW2  ( J.L  )+AW3 ( J.L  )+AW4  ( J »l ) ) +SFW 
F4Y( J.L)*P11B*A4YR+P12B*A3Z( J.L)+PXB#AW4( J.L) 

F4Z ( J.L ) «P12B*A4YR+P22B*A3Z (J.L) 

PON  XX( J.L)*P11( J.L)+Q11( J.L) 

PON  XY(J.L)*P12(J.L)+Q12(J»L) 

PQN  YY( J.L)«P22(J.L)+Q22( J.L) 

POX (J.L) *PX ( J.L )+QX( J.L ) 

GO  TO  (100.54.54) .MOTION 
54  CONTINUE 
60  CONTINUE 
100  CONTINUE 
110  CONTINUE 
RETURN 
END 


258 


I 


C  SUBROUTINE  INFACE 
SUBROUTINE  INFCOO 


common /indump/ 

NR  EG* 

RDTNM* 

MOTION* 

JBMIN* 

JBMAX* 

KBMIN* 

2 

KBMAX  » 

TIME* 

SMOMZI 

.  SMZTPT. 

SMOM2 • 

SMOMY I • 

SMYTPT • 

SMOMY* 

3 

SENER1 • 

SIETPT* 

SKtTPT 

*  WORK • 

SUMIE* 

SUMKt* 

SUMTt* 

F1MPZ* 

4 

FIMPY* 

SMASS1 • 

SMSTPT 

•  SMASS* 

PROBNO* 

DTNM* 

CUTOFF* 

N* 

5 

KBOT  • 

KTOP* 

MAXN* 

TMAX* 

DTNMN* 

SFW  • 

DTNMP5 • 

JTNM2* 

6 

KB* 

CUT  1 » 

CUT2 1 

UYLBIN* 

UYBIN* 

UYRBIN* 

UZLBIN. 

UZB’N* 

7 

UZRBIN* 

UYLTIN* 

UYTIN* 

UYRTIN* 

UZLTIN* 

UZT IN* 

UZRTIN. 

KTM* 

8 

JMIN* 

JMAX* 

KM1N* 

KMAX  » 

JL* 

J3» 

JR* 

JRM. 

9 

KT* 

E I N  (  5  )  » 

K I  NT ( 5 ) . 

RHO INIS) 

»  UYIN(5).  UZIN(5). 

2  TINY  A(5).  TINY  9(5),  R  ZERO  (  5  )  .BET  A  (  5  )  »  QCON(5)> 

A  E  S(5)»  ALFA  (  5 )  *  dIG  A(5).  BIG  B(5).  RCP  V  S(5).E  ZEROI5), 


4  FMLZR ( 100 ) • 

KSV ( 24 )  *  SAV(12)*  FMLYR(IOO) 

COMMON/THEREST/ 

A ( 55 ) »  0 1 L ( 5  5 ) •  EPX ( 55 ) » 

2  EPY ( 55}. 

EPZ ( 55 ) » 

FMLYB ( 55 )  .  FMLYT ( 55 ) .  FMLZB(55). 

3  FMLZT ( 55  )  » 

LY1 (55) » 

LY2 ( 55 ) *  LZ 1(55) *  LZ2I55)* 

4  PY ( 55  )  * 

PZ ( 55  ) » 

R1H ( 55 ) •  R2H ( 55 ) •  R3HI55)* 

5  R4H ( 55 ) . 

6  U2 ( 55  *2 ) • 

Z1H ( 55  )  * 

B ( 55  *4) 

Z2H ( 55 ) •  Z3H ( 55 ) •  Z4H(55)» 

COMMON/AFTERALL/ 

A 

RX ( 55  *5 ) * 

RY ( 55  *5  )  • 

UNMX (55*5)* 

1  UNMY (55*5) » 

UNPX (55*5)* 

UNPY (55*5)* 

FMASNMt  55  *5 ) • 

2  ENM( 55  *5  )  * 

EN ( 55  *5 ) » 

PNM (55*5)* 

PN( 55  *5 ) * 

3  PONMXX (55*5)  • 

PQNMXY (55*5) 

.  PONMYY ( 55*5  )  . 

PONXXt  55  *5 ) • 

4  PQNXY (55*5)  • 

PQNYY (55*5)* 

RWA3Z 155.5). 

RWA1Z ( 55*5) * 

5  RWAE3Z (55*5)  » 

RWAE1Z ( 55*5 ) 

*  RH3Z (55*5) » 

RH1Z ( 55  *5 ) • 

6  E3Z (55*5)* 

E1Z 1 55*5) . 

RHO (55*5)* 

VOL (55*5) * 

7  ETA (55*5)  • 

A1Y<55*5) . 

A2Y (55*5)* 

A3Y ( 55*5 ) * 

8  A4Y (55*5)  • 

A1Z ( 55  *5 ) • 

A2Z (55*5)* 

A3Z (55*5). 

9  A4Z (55*5)* 

F 1Y ( 55  *5 ) * 

F2Y ( 55  *5  ) » 

F3Y ( 55*5 ) • 

A  F4Y (55*5)* 

F1Z(55.5) * 

F2Z ( 55 • 5  )  • 

F3Z ( 55  *5 ) » 

1  F4Z (55*5)* 

NTPT  ( 55  *5 ) * 

FMSNZ (55*5)* 

FMASN (55*5) . 

2  FMNMX (55*5)  • 

FMNMY (55*5)* 

FMNX ( 55*5)  • 

FMNY (55*5)* 

4  AWK55.5). 

AW2 ( 55  *5 ) » 

AW3 ( 55  *5 ) » 

AW4 (55*5) * 

5  RXM(55*5 )  • 

RYM( 55*5)* 

RXZ (55*5)* 

RYZ ( 55  *5 ) * 

6  Qil ( 55  *5  )  • 

012(55*5) * 

Q22 (55*5)* 

QX ( 55  *5 ) • 

7  Pll ( 55  *5  )  • 

P12(55*5) • 

P22( 55.5). 

PX155.5) * 

8  PQX (55*5)* 

PQMX (55*5)* 

V0( 55  *5 ) 

COMMON  ICON* 

LINCT*  LX  1 »  LX2*  LX3 

.  LX4*  LX5* 

2  KC*  NDPA * 

NEDIT*  NSIG*  NMASS*  NDMP 

COMMON/ 1  TER/ 

ALPHA! 100)*  OF (100) 

COMMON /JH I LO/ 

01  ST ( 2  )  * 

Z21(2) • 

Y  2 1  (  2  )  • 

2  NY12( 2 )  • 

NZ12(2)  * 

YA(  2)  * 

ZA( 2 ) » 

3  YAN ( 2 ) • 

ZAN ( 2 ) • 

UNAY ( 2 ) * 

UNAZ  t  2 ) 

COMMON/ JKF ACE/ 

UNORM (55*5)  *  YAZ(55»5)» 

ZAZ (55*5) 

COMMON/ T 12 34/ 

A1YT ( 4  )  . 

A1ZT ( 4 ) • 

FMASST ( 4 ) . 

2  A2YT ( 4 )  • 

A2ZT ( 4  )  * 

A3YT ( 4 ) » 

A3ZT ( 4 )  • 

3  01 LT ( 4 ) • 

LY1T ( 4 ) * 

LY2T (4 ) » 

LZ1T ( 4 )  • 

4  LZ2T ( 4 ) * 

EPYT (4)  • 

EPZT(4) . 

EPXT ( 4 ) * 

5  PYT(4). 

PZT ( 4 ) * 

PXT (4) • 

PI IT ( 4 ) • 

6  P12T ( 4 ) * 

P22T ( 4 ) * 

P11BT14) * 

P12BT ( 4 ) • 

7  P22BT ( 4 ) • 

PXBT ( 4 ) * 

ENT ( 4 ) » 

ART (4) • 

8  F 1 YT ( 4 ) . 

F1ZT (4 )  . 

F2 YT ( 4 ) » 

F2ZT ( 4 ) » 

9  F3YT ( 4 ) » 

F3ZT ( 4 ) » 

Q1 1 T ( 4 ) » 

012T ( 4 ) • 

A  Q22T ( 4 ) • 

QXT ( 4 ) • 

VOLT ( 4 ) • 

VOLM ( 4 ) 

DIMENSION  LAMMA(5 > *EMU(5) 

DIMENSION  F  Y  ( 1 )  .FZ  ( 1 )  *T2 1Y ( 1 ) . T2 1Z ( 1 ) » YB ( 1 ) »ZB(1 ) • Y8D ( 1 ) »Z80llli 
2  YBUm.ZBU(l) 

EQUIVALENCE  <  LAMMA ( 1 ) *  TINY  A ( 1 ) ) • ( EMU ( 1 ) • T I NY  B(l>) 

EQUIVALENCE  ( PY ( 1  I *FY ( 1 > ) * l PZ ( 1 ) *FZ C 1 ) ) * I EPY U ) • T2 1 Y  (1 ) ) * 
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2  (EP£t  1).T21Z(1»)  •  ( YA(  1 ) • Yb( 1 ) ) • (ZA( 1 ) *ZB( 1 )) » ( YANI 1 ) *YHD( 1 ) ) • 

3  (ZAN(l).ZBD(l)  ).(Y21(l).YBU(l))*(Z2l(l).ZBU(l)) 

REAL  NZ12  *  NY 2*  HZ 2* 

1  LAMP*  LAMM*  LY1T  *  LY2T* 

2  LZ1T*  LZ2T •  NY12*  LAMMA*  LAMOIL 


10 


11 


IT^AX«0 
ITMIN-0 
L-LX2 
L2*LX3 
L3-LX4 
Lf>*LX5 
«LX1 

30  TO  (3*1*1) .MOTION 
>0  2  J«JMIN*JMAX 
rMASN( J*l5)*FMASNM( J*L5) 
rMASN( J*L  )«FMASNM(J*L  ) 

,FMASN( J.L2)»FMASNM( J.L2) 

RX( J*L2 ) *RXM( J*L2 ) +UNMX ( J*L2 )*DTNM 
RY( J*L2 )»RYM( J*L2 l+UNMY ( J*L2)*DTNM 
RX ( J  *L3 ) *RXM ( J  *L3 ) +UNMX ( J*L3 ) *DTNH 
RY(J*L3)*RYM(J*L3  l+UNMY ( J.L3 ) *OTNM 
JHI  «1 
JLO-2 
MT  *6 

00  305  J» JMIN» JMAX 
IF ( J*EQ.( JBMAX+1) )MT«7 
IF ( J.EQ.JMAX)  GO  TO  11 


DIST( JHI 
1  *2) 
Z2KJHI 
Y21( JHI 
NY  12 ( JHI 
NZ12( JHI 
YA( JHI 
ZAiJHI  ) 

1 

YAN( JHI 
ZAN< JHI 
UNAY(JHl) 


) *SQRT ( (RXM( J+1*L)-RXM( J*L) )»*2*(RYM( J+1*L)-RYM( J*L))» 


) *RYM( J+l *L ) -RYM( J  *L ) 

) «RXM ( J+l *  L ) -RXM ( J  *L ) 
)— Z2KJHI  )/DIST(JHI 
)*  Y21 (JHI  )/DIST( JHI 


)*SQRT(  (RXM(J*L)«*2+RXM(  J*L»*RXM(  J+l.D+RXM*  J+l*L)#*2)/3* ) 
)  ■  (  ( YA(  JHI  )  -RXM  (J*L))*RYM(J+l*L)+(  RXM  ( J+l • L ) -YA ( JH I  ))* 
RYM( J*L) )/Y21(  JHI  ) 

) «YA( JHI ) +0TNMP5*(UNMX ( J»L )+UNMX( J+l * L ) ) 

)«ZA(  JHI  )+DTNMP5*(UNMY  (  J  *L  )  ♦UNMY  (  J+l  *L  I  ) 

(YAN(  JHI  )-YA( JHI  ))*RDTNM 


UNAZ( JHI )«(ZAN( JHI )-ZA( JHI ) )*RDTNM 
IF( J.GT.JMIN)  GO  TO  12 
NY2*NY12( JHI  ) 

NZ2«NZ12< JHI) 

GO  TO  13 
NY2*NY 12 ( JLO ) 

NZ2*NZ12( JLO) 

GO  TO  13 

NY2«.5<MNY12(JLO)+NY12(JHI ) ) 

NZ2«*5*(NZ12( JL0)+NZ12( JHI ) ) 

TERM3* ( UNMX ( J . L ) »NZ 2-UNMY ( J • L ) *NY  2  » 

TERMY*TERM3*NZ2 

TKRM7a-TPRM4*NV7 

MRI TE(MT*502 ) K1NT (NREG ) *J* JLO* JHI *NREG* 

2  NY 12 ( JLO) *NY12( JHI ) *YA( JLO) *YAN( JLO) »YA( JHI ) • YAN( JHI ) » 

3  NZ 1 2 ( JLO ) *NZ 12 ( JH I ) *ZA ( JLO ) * Z AN ( JLO ) *ZA ( JHI ) »Z AN ( JHI ) 

I T  *  1 

ALPHA (IT) -UNORM ( J • NREG ) 

Y3P1«RXM( J*L2)+RXM(J.L) 

Z31»RYM(J*L2 )-RYM( J*L) 

IF( J.EO.JMIN)  GO  TO  131 
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Y1P2»RXR! J.L )4YAl JLO) 

VBG*Y1P2 

Z12-RVM!  J.D-ZA! JLO) 

ZBG*Z12 

Y2P3*YA<  JLOKRXMi  J.L2) 

Z23-ZA! JLO)-RYM!J.L2) 

VOLM(  1  )*!Z12*i Y1P2**2-RXM! J.L)*YA! JLO)  )+Z23*(  Y2P3*«2-YA(  JLO)» 

2  RXH( J*L2) »+Z31*(Y3Pl#«2-RXM( J#L2)»RXM( J*L) ))/6« 

IF! J.EQ.JMAX)  GO  TO  132  « 

131  Y1P2*Y3P1 
Z12*-Z31 

Y2P3*R.“M!  J.L2  )  ♦YA  ( JHI ) 

Z23*RYM! J.L2 )-ZA( JHI ) 

Y3P1*YA( JHI)4RXM! J.L  I 
Z31*ZA( JHI )-RYM! J.L) 

VOLM( 2 )  ■ ( Z12* ( Y1P2##2-RXM! J  »L )*RXM( J .L2 l )+Z23* ! Y2P3##2-RXM! J.L2  )* 
2  YA(JHI) )+Z31*(Y3Pl**2-YA(JHl )*RXH«J.L)))/6. 

Y1P2*Y3P1 

Z12*-Z31 

Y2P3*YA( JHI )+RXM( J.L5)  / 

Z23*ZA! JHI )-RYH( J.L5) 

132  Y3P1*RXM!J.L5)+RXM!J.L) 

Z31*RYM!J.L5)-RYM! J.L) 

IF( J.EQ.JMAX)  GO  TO  133 

VOLMI  3  )  * ( Z12*  ( Y1P2**2-RXM! J.L )*YA! JHI )  KZ23» ( Y2P3**2-YA ! JHI  )* 

2  RXM! J.L5 ) )+Z31«!Y3Pl»*2-RXM! J.L5)«RXM! J.L>))/6. 

IF(J.EQ.JMIN)  GO  TO  14 

133  Y1P2-Y3P1 
Z12--Z31 

Y2P3*RXM! J.L5 )+YA! JLO) 

Z23-RYM! J.L5)-ZA< JLO) 

V0LM!4)-!Z12*!Y1P2**2-RXM!J.L)*RXM! J.L5) )+Z23»lY2P3**2-RXMl J.L5>* 
2  YA( JLO) )-ZBG*!YBG**2-YA( JLO)*RXM( J.L) ) )/6. 

14  RX! J.L)*RXM!J.L)+DTNM*!ALPHA!lT)«NY2*TERMY) 

RY (  J • L ) *RYM ( J»L) +DTNM* ( ALPHA! I T ) «NZ2+TERMZ ) 

UNPX! J.L)*!RX! J.L) -RXM! J.L) )«RDTNM 

UNPY(  J.L)*!RY<  J*L)-RYMU*L)  )«RDTNM 

WRITE (MT. 503 ) RX ( J.L) .NY2 .ALPHA! IT).IT.RY(J.L) »NZ2 

DO  165  1*1*4 

GO  T0!15*50*65*71)*l 

15  RB1«.5*!RX! J.D+RXM! J*L) ) 

RB3*.5*(RX! J»L2)+RXM! J.L2) ) 

2B1  *.5»!RY ( J*L)+RYM( J*L) ) 

ZB3* .5* ! RY ( J *L2 ) ♦RYM! J*L2 ) ) 

A31M  *RYM!  J*L2)*RXM!  J.D-RYM!  J.L)*RXM<  J.L2) 

A31N  *RY( J»L2)*RX! J.LJ-RY! J.L)*RX! J.L2) 

RA31  *RXZ! J*L2) -RXZ t J.L) 

RAP 31  *RX( J*L2)-RX!J*L) 

ZA31  *RYZ! J.L2J-RYZ! J*L) 

ZAP 31  *RY! J*L2)-RY( J.L) 

16  IF! J.EQ. JMIN)  GO  TO  49 
RB2««5*!YAN! JLO)4YA!JLO) ) 

RB4*RB2 

ZB2*.5*!ZAN( JLO)+ZA( JLO) ) 

ZB4-ZB2 

A12M«RYM! J.L)*YA! JLOJ-ZA! JLO)*RXM! J.L) 

A23M*ZA< JLO)*RXM< J.L2)-RYM< J.L2)»YAt JLO) 

A12N*RY ( J.L) *YAN ( JLO ) -Z AN ( JLO ) *RX ( J.L ) 

A23N«ZAN( JLO)*RX( J.L2)-RY!J.L2)*YAN( JLO) 

17  A12H*.5*( A12M+A12N ) 

A23H  *.5* ( A23M+A23N ) 


261 


* 

1 


A31H*«  5*  f  A31M+A31N ) 

RB12  ■  RBI 

♦RB2 

RB23  >  RB2 

♦RB3 

RB31  -  RB3 

♦RBI 

A1YT 1 I ) «(ZB3 

•RB31 

-ZB2 

*RB12 

♦A31H4A12HI/6* 

A1ZT ( I ) * ( RB2 

*RB12 

-RB3 

•RB31 

)/6. 

A2YT ( 1 ) * (ZB1 

*RB12 

-ZB3 

•RB23 

♦A12H4A23HJ/6. 

A2ZT ( I ) * ( RB3 

•RB23 

-RBI 

•RB12 

1/6* 

A3YT ( 1 1  *  <  ZB2 

♦RB23 

-ZB1 

•RB31 

♦A23H+A31HJ/6. 

A3ZT (I ) * ( RB 1 

•RB31 

-RB2 

♦RB23 

)/6. 

WRITE (MT .504IRB1.RB2 

*RB3» 

AlYT(I). 

A2YTt 1 1 • A3YT < I I 

2  ZB1.  ZB2.  ZB3*  A1ZT  U  >  .A2ZTU  >  *A3ZT  til 

60  TO  (20*60.70.80  1. 1 

20  V00T1  «UNPX(  J.L)*A1YT(  I)+UNPY(  J#U*A1ZTU  )^UNAY(JL0I*A2YT(1 

1  UNAZ ( JLO ) * A2Z  T ( 1  ) +UNMX ( J  *  L2 I *A3 Y  T ( I  > +UNMY t J • L2 I *A3Z T ( 1) 

FMASST ( I )«V0LM(1)*RH0(J-1»U 
VOLT ( I) * VOLM ( 1 I ♦VD0T1*DTNM 
DILT<  1 1 -VOLT (I )/( FMASST ( I  l*VO(  J-liLlhl* 

RB21«YAZ( J-l »NREG)-RXZ( J.L ) 

RBP2 1*YAN ( JLQJ-RX ( J.L ) 

RBG*RB21 

RBGP-RBP21 

ZB21*ZAZ( J-1.NR£G>-RYZ<J.L) 

ZBP21«ZAN( JLO)-RY( J.L) 

ZBG-ZB21 

ZBGP-ZBP21 

WRI TE ( MT.505 ) VD0T1 » VOLT < I I *FMASST 1 1 ) .OlLTt 1 ) *VOLH( 1 I 
GO  TO  85 

49  I*U1 

GO  TO  55 

50  IFC  J.EQ.JMAX)  GO  TO  61 

55  RB2-RB3 

RB3«.5*(YAN<  JHlH-YA(JHl)  ) 

ZB2-ZB3 

ZB3-.5*(ZAN( JHlKZAt JHI I) 

A12H— A31M 

A23M«RYM( J.L2)»YA< JHl)-ZA( JHI )*RXM(J»L2) 

A31M*ZA( JHI |*RXM( J.L l-RYMt  J.L )*YAl JHI > 

A12N—A31N 

A23N*RY< J*L2 )*YAN ( JHI )-ZAN( JHI |*RX( J.L2) 

A31N«ZAN( JHI)*RX( J»L)-RY( J»L)*YAN( JHI ) 

GO  TO  17 

60  VD0T2  *UNPX (J.L)*A1YT< I ) ♦UNPY (J»L)*A1ZT( I ) -MJNMX ( J »L2 )*A2YT  ( 1  )♦ 

1  UNMY ( J.L2 ) *A2ZT ( 1  I ♦UN  AY t  JHI ) *A3YT ( I l+UNAZ (  JHI )*A3ZT ( 1 1 

FMASST  ( I ) * VOLM ( 1 1 »RHO  (  J  •  L  J 
VOLT  « I  )  *VOLM(  I  )*VD0T2*0TNM 
DILT(I)«VOLT  (Il/l  FMASST  (I  )»V0< J.L  l)-l. 

RB21«RA31 

RA31*YAZ ( J.NREGI-RXZ ( J.L ) 

RBP2 1*RAP31 
RAP31*YAN( JHI )-RX< J.L) 

ZB21-ZA31 

ZA31«ZAZ( J.NREG)-RYZ( J.L ) 

ZBP21-ZAP31 
ZAP31»ZAN( JHI )-RY(  J.L) 

WRITECMT. 505 ) VOOT2. VOLT ( I ) .FMASST (I > .DILTII) »VOLM( I ) 

GO  TO  85 

61  I«I+1 

GO  TO  66 
65  RB2*RB3 

ZB2-ZB3 
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A12M«-A31M 

A23M-ZAI JMI  )*RXM( J.L5 )-RYM< J*L5 )*YAI JHI J 
A12N*-A31N 

A23N*ZAN( JHI ) *RX ( J* 15 ) -RY ( J  »L5 ) *YAN ( JHI ) 

RB21-RA31 

RBP21-RAP31 

ZB21-ZA31 

ZBP21-ZAP31 

66  R83«*5»(RXM( J*L5)4-RX< J»L5M 

ZB3»*5*(RYM(J*L5)+RY(J*L5) ) 

A31M*RYM( J*L5 ) *RXM ( J » L ) ~RYM ( J * L ) *RXM( J »L5 ) 

A31N«RY(  J*L5)»RXI  J.L)-RYtJ#L)*RX(  J*L5) 

RA31«RXZ( J.L5)-RXZ( J.L) 

RAP31*RX( J.L5)-RX( J.L) 

ZA31*RYZ ( J*L5 ) -RYZ ( J*L ) 

ZAP31»RYCJ»L5J-RYIJ*LI 
IFI J.EO.JMAX)  GO  TO  700 
GO  TO  17 

70  VOOT3  «UNPX( JtL)*AlYT( 1 l+UNPY< J,L)*A1ZT( I )+UNAY( JHI)  *A2YT(I>+ 

1  UNAZ(JHl)  *A2ZTUI+UNMX<  J#L5  )  *A3YT  ( IM-UNMY  (  J #L5 ) *A3ZT < I ) 

FMASST ( I ) * VOLH ( 1 ) *RHO ( J  *  L5 ) 

VOLT  < 1 ) « VOLH ( 1 ) ♦VDOT3*DTNM 

01 LT  < I ) «VOLT ( I ) / ( FMASST ( I )*VO( J»  L5  ))-l. 

WRITE(MT,505) VDOT3*VOLT( I ) t FMASST ( 1 ) »0ILT( I) »VOLM( 1 ) 

GO  TO  85 
700  I-Ul 

GO  TO  75 

71  IF(  J.EO.JMINJGO  TO  165 

75  RB2*RB3 

RB3-RB4 

ZB2-ZB3 

ZB3-ZB4 

A12M—A31M 

A2 3M*R YM <  J ♦  L5  ) *YA  C  JLO ) -Z A ( JLO  )  *RXM  < J*L5.) 

A31M»ZA ( JLO) *RXMI J  *  L ) -RYM ( J  *L ) *YA ( JLO ) 

A12H— A31N 

A23N-RY ( J  t  L5 ) *YAN ( JLO ) -Z AN  C JLO ) *RX l J  * L5 ) 

A31N-Z AN ( JLO ) «RX ( J • U -RY ( J > L ) *Y AN  I JLO ) 

GO  TO  17 

80  VD0T4  *UNPX( J*L ) *A1 YT II) ♦UNPY ( Jt L ) *A1ZT ( I ) +UNMX ( J*L5 )*A2YT ( 1 )♦ 
1  UNMY  ( J»L5  )*A2ZT  ( I )  ♦UNAY  {  JLO)*A3YT  ( I )  -MJNAZ I  JLO) *A3ZT (  I ) 

FMASST ( 1 )«VOLM(I)»RHO< J-1.L5) 

VOLT  < I »  *VQLM < I »+VOOT4#OTNM 
OILT(II*VOLTI I) /(FMASST U)*VO<J-1#l5) )-l. 

RB21«RA31 

RA31-RBG 

RBP21-RAP31 

RAP31-RBGP 

ZB21-ZA31 

ZA31*ZBG 

ZBP21-ZAP31 

ZAP3WBGP 

WRI TE < MT. 505 )VD0T4* VOLT < I ) *FMASST ( I ) tOILT ( I ) *VOLM< 1 ) 


AAB  ■RA31*ZB2 1“RB21*ZA31 

A22  -IZB21 

•RAP31 

-ZA31 

♦RBP21 

)  /AAB 

A23  * ( RA3 1 

*RBP21 

-RB21 

♦RAP31 

)/AAa 

A32  * ( ZB2 1 

»ZAPJ1 

-ZA31 

*ZBP2 1 

J/AAB 

A33  * ( RA31 

•ZBP21 

-RB21 

*ZAP3i 

)  /AAB 

T22  * A22 

*#2*A3 2 

**2 

T23  *A22 

•A23  +A32  *A33 

T33  » A23 

»*2+A33 

##2 
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IF  I T 23*EQ«0 )  60  TO  110 

ROOT  -SQRTHT22  -T33  |**2*4.»T23*»2 ) 

TERM* ( T22+T33 ) 

LAMP*.5»(TERM+R00T) 

LAMM* • 5* ( TERM-ROOT ) 

El-SQRT(LAMP) 

E2-SORTILAMM) 

RROOT 1*1. /  SORT « T23**2* < T22-LAMP ) *»2 ) 

LY1T 1 1 )*T23*RR00T1 

LY2TI  I)*(T22-LAMP)*RROOTl 

RROOT2*l./SORT<T23«*2+(T22-LAMM)»*2) 

LZ1T<  II«T23*RROOT2 

L22 T (I } * < T22-LAMM ) *RROOT 2 

IF  I A8S(LY1T(I) ).LT.A8S(LZ1T( 1 )>>  60  TO  95 

IK(LYITCI) *GT *0 )  60  TO  90 

LY1T(I  )*-LYlTU) 

LY2TU)*-LY2T(I) 

90  IF(L22T(  IU 61.01  60  TO  115 
LZ1T ( I ) *-LZlT ( I ) 

LZ2T ( I ) *-LZ2T  ( I ) 

60  TO  115 

95  IF  (  LZ IT  ( I ) #6T *0 1  60  TO  100 

LZ1T ( 1 ) *-LZlT ( 1 ) 

LZ2T ( I ) *-LZ2T ( I > 

100  IF(LY2T( I ).6T.O)  60  TO  105 
LYlT  <  I  ) *-LYlT ( I ) 

LY2T ( I  )  *-LY2T ( I ) 

105  WS*LY1T(I) 

LYlT ( I )  *LZ1T ( I ) 

LZ1T ( I ) *WS 
WS*LY2T ( I  ) 

LY2T ( I  )  *LZ2T ( 1 1 
LZ2T ( I ) *WS 
60  TO  115 

110  E1*SQRT  <  T  22 ) 

LYlT ( I  1*1* 

LY2T(I1*0. 

E2*SORT ( T33 ) 

LZ1T ( I 1*0* 

LZ2T (I ) *1* 

115  60  TO  (116tll7*118fll9)tl 

116  E3* VOLT ( I ) / ( FMASST ( I ) »V0 ( J-l »L  > *E1*E2  > 

60  TO  1190 

117  E3*V0LT( I )/( FMASST ( I )*V0( J  *L  ) *E1*E2 ) 

60  TO  1190 

118  E3*V0LT ( I J / ( FMASST ( I )*V0( J  #L5)*E1*E2) 

60  TO  1190 

119  E3*V0LTU)/<FMASST(I )*V0( J-1»L5)*E1*E2> 

1190  EPYT ( 1 1  *E1-1* 

EPZT ( I )  *E2-1* 

EPXT ( 1 1 *E3-1 • 

IF( I .LT.3JNREG-NREG+1 
LAMDIL*LAMMA(NREG)*0ILT( I ) 

EMU2*-2  **EMU ( NR EG ) 

IF ( I • LT«  3 )  NREG*NREG-1 

PYTII  )«EMU2*EPYT<  I  ) -LAMOl L 

PZT( I )»EMU2*EPZT( I I-LAMDIL 

PXTII)*EMU2»EPXT< l I-LAMDIL 

PUT  ( I  ) *LY1T  <  i  )**2*PYT1  I  H-LZ1T  (I)  **2*PZT  I  I  ) 

P12Tm*LYlT(I)*LY2TU  )*PYTI  1 ) +LZ IT (I) *LZ2T (I) *PZT U  > 

P22TII  l«LY2T(II*»2*PYTU  >+LZ2T(  I)**2*PZT(  I  ) 
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Q11T(I)-012T<I)-Q22T(I)»QXT(I 1-0* 

60  TO  ( 120tl25»130*135)  •  I 

120  ART( I )■( (RX( J*L)-YAN( JLO) ) * ( RY ( J»L2 I -ZAN ( JLO ) ) -( RY ( J » L ) -ZAN ( JLO ) I* 

1  (RX(  J.15)-YAN(  JL0m/6. 

P11BT(I)-»5*(P11T(I I+Q11T ( I ) +PQNMXX ( J- 1 • L  ) I 
P12BTC I)««5*(P12T(I)+Q12T(I )«-PQNMXY<  J-1#L  ) ) 

P22BT ( I  )**5*(P22T < 1 I+Q22T ( I >+PQNMYY( J-l.l  ) I 
PXBTIII-  .5*(PXT<  I  l+QXTU  )+PQMX(J-l.L  )) 

60  TO  140 

125  ART( 11*1  <RX< J#L)-RX  ( J*L2 I) *( ZAN( JHI )-RY  < J*L2 I )-IRY( J.L I- 
1  RY  ( J*L2))*(YAN( JHI )-RX  (J*L2)))/6. 

P11BTU  I«.5»IP11T( I I+Q11T( I  )+PQNMXX< J*L) ) 

P12BT(1)*#5*(P12T(I  )+Q12T( I  )+PQNMXY( J.L)  ) 

P22BTI 1  )»*5*(P22T( I )+022T( I l+PQNMYY ( JtL) ) 

PXBT! I  I  -*5*(PXT (  I  l+QXT  (  l  )+PQMX( J*L) ) 

60  TO  140 

130  ART ( I ) « ( (RX( J«L )-YAN( JHI ) I • ( RY ( J*L5 l-ZAN( JHI ) >-(RY( J*L)-ZAN< JHI ))* 
1  <RX( J.L5)-YAN( JHI ) ) 1/6* 

P11BTU  I  PUT  ( I  l+QUTC  I  l+PQNMXXU  tL5)| 

P12BT(  I|».5*(P12T(  I  )+Q12T(  I  )+PQNMXY(J  «L5|) 

P22BTII  )«#5*<P22T(I l+Q22T( I l+PQNMYY ( J  #L5) ) 

PXBT III*  .5*(PXT< Il+QXTI I M-PQMXU  *L5|) 

60  TO  140 

135  ART ( 1  )■( (RX( J*L)-RX  ( J *L5 I ) * ( ZAN ( JLO ) -RY  ( J»L5 ) )-(RY( J»L|- 

1  RY  < J*L5) l*(YAN(JLOI-RX  <J.L5)))/6. 

P11BT(1)>«5*(P11T(  I  )+QUT(  I  I  +PGNMXX  ( J-l  •  L5  ) ) 

P12BT ( 1  )««5*(P12T(I ) +012  T ( I I +PQNMXY ( J-l *L5 ) ) 

P22BTI  I )*.5*(P22T(  I  )+Q22T< I  l+PGNMYYC  J-1#L5  1 ) 

PXBT  (II-  .5*(PXT( 1  )«-QXT(  1  )+PQMX(  J-1.L5II 

140  ATERM1-A1YT ( 1 1 -ART ( 1  I 

F1YTC  I  I-P11BT ( I I *ATERM1+P12BT ( I )*A1ZT ( 1 1 +PXBT ( I )*ART ( I ) 

F1ZT (  I  I -P12BT ( I  )*ATERM1+P22BT ( 1 )*A1ZT ( 1 1 

ATERH2-A2YT ( 1 l-ART ( 1 1 

F2YTI  I  I -P11BT ( 1 1 *ATfcRM2+P12BT ( I  I »A2ZT  ( I ) ♦PXbT ( 1 ) *ART  (  1 ) 

F2ZT  (  I  l-P12BT(II*ATERM2+P22BT(I)»A2ZT(l) 

ATERH3-A3YTU  l-ART  (I) 

F3YTC  I  I -P11BT  ( 1 1  +ATERM3+P12BT  ( I  I+A3ZT  ( 1 1  +PXBT  ( 1  )*ART  ( 1 1 

F3ZTC  I  I -P12BT ( I I+ATERM3+P22BT ( I |*A3ZT ( I  I 

60  TO  ( 145* 150 *155* 1601*1 

145  ENT ( I 1*ENM( J-l tL  |-0TNH*( UNPX ( J • L I *F 1 Y T 4 1 l+UNPY ( J *L ) *F 1ZT ( I )  + 

2  UN AY ( JLOI+F2YT ( I l+UNAZ ( JLO) *F2ZT ( I l+UNMX (J*L2)#F3YT(I)+ 

3  UNHY(  J.L2)»F3ZTU  I  1 

WRITE (MT. 507 )UNPX( J*LI*UNAY( JL0|»  UNHX(J*L2I t 
2  UNPY (JtL  I tUNAZ ( JLO) •  UNHY(J*L2I 

60  TO  164 

150  ENTIII-ENMU  *L  l-OTNH* ( UNPX( J*l I+F1YT ( I l+UNPY ( J»l )*F 1ZT ( I )+ 

2  UNMX( J  *L2 I+F2YT  ( I  I  +UNMY  (  J»L2 1  *F2ZT  (  I  l+UNAY  (  JHI  I  *F3YT  (  I  I  ♦ 

3  UNAZ ( JHI I *F3ZT ( I ) ) 

WRITE(MT#507)UNPX( J»L) *UNMX< J»L2) *UNAY( JHl ) • 

2  UNPY< J»L) »UNMY( J#L2) »UNAZ( JHl I 

60  TO  164 

155  ENT ( 1  |  -ENH(  J  »L5  l-OTNM*  ( UNPX  ( J*L I*F1YT ( 1 l+UNPY  ( J*L  I*F1ZT  (1  )  + 

2  UNAY< JHI )*F2YT( I I ♦UNAZ (JHI )*F2ZT( I 1 +UNMX ( J  *  L5  )  *F  3 Y  T  ( I  1  + 

3  UNMY< J#L5)*F3ZT( I ) I 

WRITE (HTt507)UNPX( J*L) *UNAY( JHI ) •  UNMX( J.L5I * 

2  UNPY ( J»U » UNAZ (JHI ) ,  UNMY(J.L5) 

60  TO  164 

160  ENT ( I l-ENMI J-1»L5 I-OTNM* ( UNPX ( JtL »*FlYT ( I l+UNPY (JtL)*FlZT(i )  + 

2  UNMX ( J »L5 )*F2YT ( I  l+UNMY (J»L5l*F2ZT(l l+UNAY ( JLOI+F3YT <  I  )  + 

3  UNAZ( JLO)*F3ZT (III 
WRITEIMT*507)UNPX< J*L)»UNMX( JtL5) *UNAYC JLO)  • 
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2  UNPY ( J.L ) .UNMY(J*L5) »UNAZ ( JLO ) 

164  WRITE(MT.506 ) AAB» A22 .A23.A32.A33.T22.T23.  T 33 • LAMP ♦ LAMM » 

2El.E2.E3.LYlTm.LZ  ITU ) .EPYT( 1 ) »EPZT( i ) • tPX T ( I ) » LY2T ( I ) • 

3LZ2T  ( I )  *PYT  (  1  )  *P2T(  I  )  .PXT(  I J  » ART ( I  )•  ENT  ( I  )  .PUT  (I )  *P12T(  1)  • 

4  P22TU),F1YTU  ).F1ZT(1  >.F2YTII  ) .F2ZTU  »  *F 3YT ( I ) »F3ZT ( 1 ) 

163  CONTINUE 

I F  C J*EO« JMAX )GO  TO  170 
FAC23-.5*( YAN( JHI )+RX( J.L) ) 

AY23T«FAC23*(RY( J.L)-ZAN(JHI J ) 

AZ23T»FAC23*(YAN( JHI )-RX( J.L) ) 

FY23T«(PllBT(2)-PllbT(3) )*AY23T+(P12BT(2)-P12dT(3) )*AZ23T 

FZ23T«(P12BT(2)-P12BT(3) )*AY23T+(P22BT(2)-P22dT(3> )*AZ23T 

IF( J.6T.JMIN)  GO  TO  170 

FYT  -FY23T 

FZT-FZ23T 

GO  TO  180 

170  FAC14-.5#(RX( J.L)*YAN< JLO) ) 

AY14T-FAC14*(ZAN( JLO)-RY( J.L) ) 

AZ14T«FAC14*(RX( J *L ) -YAN( JLO) ) 

FY14T-(P11BT(1)-P11BT<4)  )*AY14T-MP12BT(1  )-P12BT(4)  )»AZ14T 

FZ14T-(P12BT(1)-P12BT(4)  )#AY14T«MP22BT(  1)-P22BT(4)  )*AZ14T 

IF ( J.LT.JHAX)  GO  TO  175 

FYT-FY14T 

FZT  *FZ14T 

GO  TO  180 

175  FYT-.5*(FY14T*FY23T) 

FZT-.5*(FZ14T+FZ23T) 

180  OF ( I T ) *NY2*FYT+NZ2*FZT 

WRITE(MT.508)AY23T.AY14T.FY23T.FY14T.FYT.DF( IT). 

2  AZ23T.AZ14T.FZ23T.FZ14T.FZT 

IF( ABS(DF( IT) )«LE«  CUTOFFIGO  TO  300 

IF  ( ( I T«GT • 1 ) • AND# ( ABS ( OF  < I T ) —OF C I T-l ) ) • LE • ( CUTOFF*ABS ( OF ( I T  ) ) ) ) ) 

1  GO  TO  300 

IFUT.LT.3  )GO  TO  200 
GO  TO  300 

WRITE (6.500) ( IT.J*KC.N.DF( IT) * ALPHA! IT) • I TMI N. I TMAX • I T-l • 100 ) 
WRITE(6.501) 

200  IF(IT.LT.l)  GO  TO  220 
1F(0F( IT) ) 205. 300 .2 10 
205  ALPHA ( I T+l ) -1.01*ALPHA( I T ) 

GO  TO  215 

210  ALPHA(IT+1)«.99#ALPHA(IT) 

215  IF(ALPHA( IT+1)*EQ*0)ALPHA( IT  +  U-.l 
GO  TO  230 

220  IF( IT- 30)225.235.265 

22  5  ALPHA ( I  T*1 )  "ALPHA  ( I  T  )-DF  ( I T )*(  ALPHA ( I  T  ) -ALPHA ( I  T-l )  )  /  I  OF  ( I  T  )  *“ 

1  OF ( I T-l ) ) 

IF(ABS(ALPHA( IT  +  1 )-ALPHA(IT) ).LE. (CUTOFF#ABS( ALPHA ( IT)) )  )G0  TO  300 
230  IT-IT+1 
GO  TO  14 

235  TMIN— 1000. 

TMAX-1000. 

IN-1 

240  DO  260  IS-IN.IT 

I F ( OF ( IS) >245.300.250 
245  IF< C OF ( IS)-TMIN).LT.0)  GO  TO  260 

THIN-OF( IS) 

ITHIN-IS 
GO  TO  260 

250  IF ( ( OF ( I S ) -TMAX )  *GT • 0 )  GO  TO  260 

TMAX-DF (IS) 
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ITMAX-1S 
260  CONTINUE 
IK1NMAX-1 

I  IF  ( ( I TMlN«EQ*0 ) *OR* ( I TMAX*EQ*0) ) 1MINMAX-  2 
00  TO  (290*226) *IHINMAX 
265  00  TO  (275*270) *IMINMAX 

270  IN-IT 

GO  TO  260  1 

275  IF(DF( IT) 1260*300 *265 
200  I TMAX-I T 

GO  TO  290 
265  ITH1N*IT 

290  ALPHA(IT+1)-.5*(ALPHA( I  THIN )+AlPHA( ITHAX) ) 

I F ( ( A6S( ALPHA ( I  T+l ) -ALPHA ( I T ) ) ) *GT • (CUTOFF *ABS( ALPHA (  IT)) ) ) 

1  GO  TO  230 

300  UTAN-( (UNHX( J*L5)+UNMX( J*L2) »*NZ2-(UNMY( J*L5)+UNMY( J*L2) )*NY2)**5 
UNORH( JvNREG ) -ALPHA (IT) 

JLO-JHI 

JH 1 -MOD ( JLO • 2 ) + 1 

UNPX(J*L)-NZ2*UTAN+NY2*UNORM(J*NREG) 

UNPY ( J*L ) »NZ2*UNORM ( J*NREG ) -NY2*UTAN 
UNMX ( J • L ) «UNPX ( J • L ) 

UNHY ( J • L ) “UNPY ( J • L ) 

305  WRITE(MT*510 )UTAN*UNORM( JtNREG) »UNPX ( J*L ) *UNPY( J»L) 

CALL  STRAIN 

CALL  STRESS 
CALL  STRAINP 
NREG-NREG+1 
KC-KINT (NREG)-l 
CALL  STRESSP 
NREG-NREG-1 
KC-KINT(NREG)-1 
CALL  STRAINP2 
NREG-NREG+1 
KC»KINT(NREG)-1 
CALL  STRESSP2 
CALL  FORCEP2 
CALL  ENERGYP2 
NREG-NREG-1 
KC-K1NT(NREG)-1 
NPATH— NPATH+1 

306  00  325  J-JMIN* JR 

IF(NPATH.EQ.O)  GO  TO  326 
FACB— *5*(RX( J*L5 )+RX( J+1*L5) ) 

AYB  -FACB»(RY(J+1*L5)-RY( J*L5) » 

AZB  -FACB* ( RX ( J *L5 )-RX( J+1*L5) ) 

3060  FACL— *5*(RX( J*L)+RX( J»L5) ) 

FACR— *5*(RX( J+1*L5)+RX( J+1*L) ) 

AYL  -FACL*(RY( J*L5)-RY(J*L) ) 

AZL  -FACL*(RX(J*L)-RX( J.L5) ) 

AYR  -FACR*(RY(J+1*L)-RY( J+1*L5) ) 

AZR  -FACR* (RX(J+1»L5)-RX(J+1*L) ) 

PllB-*5*(  PQNXX(  J*L6 )  +P11  ( J»L5  ).+Qll  ( J*L3  ) ) 
P12B-*5*(PQNXY(J.L6)+P12t J*L5l+Q12( J*L5) ) 

P22B-*5*(PQNYY( J.L6)+P22( J*L5)+Q22( J*L5) ) 

PXB-.5*(P0X( J*L4)+PX( J*L5)+QX(J*L5) ) 
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IF< J.GT.JMIN)  GO  TO  307 
Plll«Plll  J*L5)+Q11(  J*L5|  , 

P12l*P12(J*L5)+Q12(J*l5) 

P22L«P22< J.L5>+Q22< J.L5) 

PXL*PX( J.L5I+QXI J*t5) 

GO  TO  310 

307  P11L»*5*(P11(J»L5)+Q11(J*L5)+P11(J-1»L5)+U11(J-1#L51) 

P12L*.5*(P12( J*L5)+Q12(J*L5)+P12< J-ltL5)+U12< J-1.L5)) 
P22L=.5*(P22(J#L5)+Q22(J*L5)+P22(  J-ltl5)+Q22( J-1»L5) ) 
PXL**5»(PXIJ*L5)+QX(J*L5I+PX< J-1*L5)+QXI J-1.L5)) 

310  I F I J*LT • JR )  GO  TO  313 

P11R«P11(  J*L5 )+Qll< J.L5) 

P12R*P12(JtL5) +Q12 ( Jt L5 )  , 

P22R*P22< J*L5)+Q22( J.L5) 

PXR*PX< J»L5)+QX( J»L5J 
GO  TO  320 

313  P11R**5*(P11(J»L5)+Q11(J«L5)+P11(J+1*L5)+Q11(J+1»L5H 

P12R«.5*(P12(  JtL5)+Q12<J*L5)+P12<  J+1.L5)+Q12<  J+1.L5)  ) 

P22R-.3*(P22 (J»L5  1+022 (J*L5 )+P22(J+l*L3 )+U22(J+l »L5) ) 

PXR«.5*(PX( J»L5)+QX(JiL5>+PX( J+1*L5)+QX( J+1.L5)) 

32  0  AW*.5*<  (RX(  J+1*L5  > -RX {  J*L)  )  » ( RY  (  J+l « L ) -RY  ( J*L5  ) )  - (RX  (  J+l  #L  )- 

2  RX(  J»L5n*(RYU+l*L5)-RY(J#L)  )  ) 

FYB«P11B#AYB  +P128+AZB 
F2B*P12B#AYB  +P22B+AZB 
FYL*P11L*AYL  +P12L+AZL 
F2L*P12L*AYL  +P22L+AZL 
FYR«P11R«AYR  +P12R+AZR 
FZR*P12R*AYR  +P22R+AZR 
FW*AW#(PX( J*L5J+QX( J»L5)  ) 

SFW«SFW+FW 

KPRINT-KC+l-NPATH 

WRITE <MT .509)  J.AYB»AYL.AYR.PUB*PllL»PllR.AZB.AZLtAZR*P12B.P12L* 
2  P12R.FYB*FYL#FYRtP22B*P22L.P22R.FZB,FZL.FZR#PX8.PXL*PXR 
3tXPRINT  *AW*FW 
IF(NPATH.EQ.O)  GO  TO  324 
FY< JI-FYB+FYR+FYL+FW 
FZ(  J )  *FZB+FZR+FZL 
GO  TO  325 

324  DIST*SQRT(  <RX(  J+1»L5)-RX<  J»L5>I»*2+(RYC  J+1.L5)-RY(  J.L5))**2) 

T21Y  (  J )  «  (RX  (  J+l  *1.5  )-RX  ( J*L5  ) ) /DI ST 

T21Z(JI*(RY(J+1  #L5 )-RY( J»L5  M /DI ST 

FY(  J)*(FMASN(  J*L5  )*FY (J ) -FMASN ( J »L3 )* C FYB+FYL+FYR+FW )  )*T21Y(  J)/ 

2  (FMASN< J#L5)+FMASN< J.L3) ) 

FZ ( J ) « ( FMASN ( J *L5  )*FZ( J I -FMASNl J#L3 ) * ( FZB+FZL+FZR ) )*T21Z<  J )/ 

2  ( FMASN (J#L5  )+FMASN( J»L3 ) ) 

325  CONTINUE 

IF ( NPATH«EQ*0 )G0  TO  330 

npath-i-npath 

L3*L5 

L4*L2 

L5*L 

L*L2 

GO  TO  306 

326  FACB«-.5*(RX< J+1*L  )+RX(J*L  )) 

AYB«FACB*(RY ( J»L  )-RV(J+l*L  )) 

AZB»FACB* ( RX ( J+l »L  )-RX(J#L  )) 

GO  TO  3060 

330  L*L5 

L3»LX4 
L5*LX  1 
JL0*1 
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JHI-2 

J-JHIN 

YB ( JLO )«(RX(J»L)+RXM(J.L))*.5 
2B(  JLO)«(RY(  J.L)+RYM(  J.L) )*.5 
YBD(  JLO)  » (RX  ( J.L5 )+RXM( J.L5 )  )**5 
2BD( JLO) ■ (RY ( J*L5  )+RYMI J  »L5  )  )*.5 
YBU(  JLO)«.5*(RX(J.L2)-*RXM(J.L2) ) 

ZBU(JLO)-.5*(RY(  J.L2)*RYM(J.L2) ) 

00  350  J* JMIN. JR 

YB( JHI ) ■ (RX ( J+l .L )+RXM( J+l *L ) )*#5 
ZB( JHI ) ■ ( RY ( J+l *L )  +RYM( J+l *L )  )  *.5 

YBM-SOR  T  H YB ( JLO )**2+YB( JLO)*YB( JHI )+YB( JHI )*+2)/3.) 

ZBM*( (YBH-YB( JLO) )*ZB( JHI )+( YB( JHI )-YBM)*ZB( JLO) ) /( YB( JH I )- 
2  YB(JLO))  / 

YBD( JHI ) ■ (RX( J+l *L5 )+RXM( J+l »L5 ) )**5 
2BD( JHI )  ■ (RY ( J+l *L5 )+RYM( J+l »L5 ) ) *.5 

YBHM»SQRT( (YBD( JLO)**2+YBDl JLO)*YBD( JHI )  +YBD( JHI )**2)/3. ) 

ZBHM«( (YBHM-YB0( JLO) )#ZBD( JHI )+(YBD( JHI )-YBMM)*ZBD( JLO) )/(YBD( JHI ) 
2  -YBD(JLO)) 

YBU( JHI )«.5*(RX( J+1.L2)+RXM( J+1.L2) ) 

ZBU( JHI)«.5*(RY(J+1.L2)+RYM( J+1.L2) ) 

YBMP-SQRTUYBU(JLO)**2+YBU< JLO)«YBU< JHI) fYBUIJHI >*#2)/3.) 
ZBMP»((YBMP-YBU( JLO) )*ZBU( JHl )+(YBU( JHI)-YBMP)*ZBU(JLO) )/(YdU(JHI) 
2  -YBU(JLO)) 

AW1(J.L3)«.5*( (YB0( JHI )-YBM)*(ZB( JHI )-ZBMM)-(YB(JHI >-YBMH)# 

2  (ZB0( JHI J-ZBH) ) 

AW2( J.L5)*.5*( ( YBHH-YB( JLO) ) * ( ZBH-ZBD ( JLO ) )-(VBM-YBD( JLO) )* 

2  (ZBMM-ZB I JLO) ) ) 

AW3 (J.L  )«.5*( (YBM-YBU(JLO) ) * ( ZBMP-ZB ( JLO ) )-(YBMP-YB( JLO) )* 

2  (ZBM-ZBU(JLO) )) 

AW4U.L  )«.5*( ( YB( JHI J-YBMP )*(ZBU( JHI ) -ZBH)-( YBU( JHI ) -YbM)* 

2  IZBIJHI J-ZBMP) I 
AW1 ( J.L)*0 
AW2( J*L)-0 
AW3(J»L5)-0 
AW4( J.L5)«0 

PXA3«PX(J*L5)*AW1CJ»L5) 

PXA4«PX(J*L5)»AW2( J.L5) 

PXA5«PX( J.L)*AW3( J.L  ) 

PXA6«PX( J.L)*AW4( J.L  ) 

PQNXXl J#L5)«P11( J#L5)+011( J»L5) 

PQNXYt J.L5)«P12( J.L5)+Q12( J.L5) 

PONYYI JtL5)*P22( J*L5)+Q22( J»L5) 

PQX (J»L5)*PX(J*L5) +QX ( J. L5 ) 

PQNXX( J.L)*P11( J.L)+Q11( J.L) 

PQNXYI  J.D*P12(  J.L)+Q12(  J.L) 

PONYYI J.L )»P22( J.L) +022 ( J.L) 

POX  I J.L)*PX( J.L)+QX( J.L) 

POXXH- • 5« I PQNXX I J*L5 ) +PQNMXX I J  »  L  5 ) ) 

PQXYM«.5»(PQNXY( J *L5 ) +PQNMXY ( J.L5) ) 

PQYYM«.5*(PQNYY( J.L5)+PQNMYY( J.L5 ) ) 

PQXM*.3*lPQX(J.L5)+PQMX( J.L5) ) 

PQXXP* • 5* ( PONXX (J.L) +PQNMXX (J.L)) 

PQXYP* . 5* ( PONXY (J.L) +PQNMXY (J.L)) 

PQYYP*.5#( PQNYY (J.L) +PQNMYY (J.L)) 

PQXP*.5*(PQX( J»L)+PQMX(J#L) ) 

FAC«.5»(YBMP+YBM) 

FMPY-FAC# ( PQXXP* ( ZBMP-ZBM) +PQXYR* ( YBM-YBHP ) ) 

FMPZ*FAC# ( POXYP* ( ZBMP-ZBM>+PGYYP* ( YBM-YBMP ) ) 

FAC««5*(YBMM+YBM) 

FMMY«FAC* ( POXXM* ( ZBMM-ZBM ) +PQXYM* ( YBM-YBMM ) ) 
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FMMZ*FAC* ( PQXYM*(ZBMM-ZBM ) +PQYYM*  t  YBM-YBMM ) ) 

PQXXN* • 5# ( PQXXP+PQXXM » 

POXYN*.5*(PQXYP+PQXYM) 

PQYYN**5*(PQYYP+PQYYM) 

PQXN* • 5» ( PQXP+PQXM ) 

FAC1«#5»(YB(  JLOH-YBM) 

F1MY«FAC1*  T2 1 Y ( J  )  *  ( PQXYN* ( ZB ( JLO ) — ZBM) +PQYYN*( YBM-YB ( JLO ) ) )- 
2  T21Z(  J)*(PQX?;N*(ZB(  JLO)-ZBM)+PQXYN*(YBM-YB{  JLO)  )  )  ) 

F1MZ*  O* 

FAC2**5*(YB( JHl )+YBM ) 

F 2MY*FAC2*(  T 21 Y ( J  )*  (  PQXYN»(ZB  (  JH1  ) -ZBM) +PUYYN* ( YBM-Yb ( JHl  )  )  )- 
2  T21Z ( J  )*( PQXXN* ( ZB ( JHl ) -ZBM ) +POXYN* (YBM-Yb ( JHl ) ) )) 

F2MZ *  0. 

A21*.5»(YB< JLO)+YB( JHl )  )  *SQRT  (  ( YB  ( JHl) -YB  ( JLO )  )  **2+(  ZB  (  JHl  ) -ZB  (JLO 
2  J)**2) 

PT«(FY( J)+FZ( J)  J/A21 

F1MYT*PT*(FAC1*(T21Y ( J)*(2B( JLO) -ZBM) +T2 12 (J)*( YBM-Yb (JLO) ) ) ) 
F2MYT»PT*( FAC2*( T21 Y ( J)*(ZB( JHl )-ZBM ) +  T2 1Z l J ) * ( YBM-YB ( JH I ) ) ) ) 
FY1M*T21Y( J)*F1MYT-T21Z( J)*F1MY 
FZ1M*T21Z ( J ) *F 1MYT+T21Y ( J )*F1MY 
FY2M*T2lY(J)*F2MYT-T2lZ( J)*F2MY 
FZ2M*T21Z(J)*F2MYT+T21Y( J)*F2MY 

EN(J.L)*ENM(  J.LH( (UNPX( J.L)-UNMX( J.L2) )*FY1M+(UNPY( J.L)-UNMY( J.L2 

2  ) )*FZ 1M+(UNMX ( J • L 2 ) -UNMX ( J+l . L2 ) ) *FMPY+ ( UNMY ( J  *  L2 ) -UNMY 

3  ( J+1.L2))*FMPZ*(UNMX( J+1.L2 )-UNPX( J+l.L  ) ) *FY2M+( UNMY ( J+l ♦ 
4L2 I-UNPY ( J+l »L ) )*FZ2M)*DTNM-UNMX(  J *L2 )*PXA5-UNMX ( J+l »L2 ) *PXA6 

EN  < J.L5)*ENM( J.L5)+(  (UNPX( J+l #L) -UNMX ( J+l. L5 ) )*FY2M+ ( UNPY ( J+l.L)- 

2  UNMYI J+1.L5) )*FZ2M+(UNMX( J+1.L5)-UNMX(J.L5) )*FMMY+ 

3  (UNMY ( J+l *L5 )-UNMY ( J.L5 ) ) *FMMZ+<  UNMX ( J »L5 ) -UNPX ( J. L ) )* 

4  FY1M+(UNMY< J.L5 ) -UNPY ( J.L ) ) *FZ1M ) *DTNM-UNMX ( J+l *  L5 )*PXA3 

5  -UNMX(J.L5)*PXA4 
F 1Y ( J  *L5 ) *FY2M-FMMY+PXA3 
F1Z( J.L5)*FZ2M-FMMZ 

F2Y ( J*  L5 ) *FMMY-FY1M+PXA4 

F2Z( J.L5)*FMMZ-FZ1M 

F3Y ( J *L  )  *FY 1M-FMPY+PXA5 

F3Z(J*L  ) *FZ 1M-FMPZ 

F4Y( J.L  ) *FMP Y— FY2M+PXA6 

F4Z (J.L  )«FMPZ-FZ2M 

F1Y ( J»L)*0 

F1Z ( J  »  L ) *0 

F2Y ( J»L ) *0 

F2Z( J.L)*0 

F3Y ( J.L5 )*0 

F3Z(J.L5)*0 

F4Y ( J • L5 ) *0 

F4Z ( J  *  L5 ) *0 

WRITE (MT.511 )  J»T21Y(J)*FY(J) • YBMM. YBM.YBMP.T21Z ( J ) #FZ ( J ) *ZBMM» 

2  ZBM.ZBMP.YBDt JLO) *YBD( JHl ) »YB( JLO) »YB( JHl ) .YBU( JLO) »YBU( JHl ) » 

2  ZBD< JLC) »ZBO( JHl ) .ZB ( JLO ) .ZB ( JHl ) »ZBU( JLO ) »ZBU ( JHl ) . 

3PXA3 .PXA4.PXA5  *PXA6 .PQXXP .PUXYP. PQYYP  »PUXP*PQXXM»PQXYM*PQYYM*PUXM» 
4FMPY.FMPZ»FMMY.FMMZ .PQXXN. PCXYN»PGYYN»PUXN,F1MY,F1MZ.F2MY.F2MZ» 
5A21*PT.F1MYT*F2MYT.FY1M,FZ1M.FY2M,FZ2M 
JLO* JHl 

350  JHl*  MOD  ( JLO  *  2  )  + 1 

RETURN 

500  FORMAT ( 1H  / 

1 (4I8.2E17.9.2I8/) ) 

501  FORMAT (1H  / 

1 18H  ITERATION  TROUBLE) 

502  FORMAT ( 1H 1/ 
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232H 

K  J  JA 

JB  REGION/416.1 

[8// 

394H 

N12(Y) 

N23 ( Y ) 

YA 

YA  (N) 

4 

YB 

YB(N) / 

594H 

N12(Z) 

N23 ( Z ) 

ZA 

ZA(  N ) 

6 

ZB 

Ztt(N) / 

7  (6E17 

•  9) ) 

503 

FORMAT (1H  / 

2115H 

Y2PRIME(N) 

N2(Y) 

ALPHA ( I ) 

3 

ITERATION/ 

426H 

Z2PRIMEIN) 

N2 ( Z )  / 

53E17. 

9.55X. I9/2E17.9/ ) 

5  04 

FORMAT (1H  / 

2114H 

YBAR(l) 

YBARI2) 

YBARO) 

A1Y(T) 

3 

A2Y(T ) 

A3Y(T) 

TRIANGLE/ 

495H 

ZBAR ( 1 ) 

ZBAR ( 2 ) 

ZBAR( 3 ) 

A1Z(T) 

5 

A2ZIT) 

A3Z( T ) / 

66E17  • 

9.I8/6E17.9) 

505 

FORMAT ( 1H  / 

279H 

VOOT ( T ) 

VOL(T) 

MASS(T) 

OIL(T) 

3 

MVOL(T)/5E17.9) 

506 

FORMAT ( 1H  / 

275H 

A(  AB) 

A22 

A23 

A32 

3 

A33/5E17.9/ 

480H 

T22 

T23 

T33 

LAMMA ( ♦ ) 

5 

LAMMA(-) /5E17* 

9/ 

678H 

El 

E2 

E3 

LY1(T) 

7 

LZ1(T)/5E17.9/ 

878H 

EPY(T) 

EPZ  l  T ) 

EPX(T) 

LY2 ( T ) 

9 

LZ2(T)/5E17.9/ 

I 

177H 

PY(T) 

PZ  ( T ) 

PX(T) 

AREA(T)  / 

2 

EN(T)/5E17.9/ 

1 

378H 

Pll(T) 

P12(T) 

P22(T) 

F1Y(T)  j 

4 

F1Z(T)/5E17.9/ 

1 

561H 

F2YCT) 

F2Z ( T ) 

F3Y(T) 

F  3Z ( T  )  / 

64E17  • 

9) 

507 

FORMAT (1H  / 

241H 

UY1 

UY2 

UY3/ 

1 

241H 

UZ1 

UZ2 

UZ3/  - 

j 

42(3E17.9/) ) 

i. 

508 

FORMAT (1H  / 

1 

295H 

AY (62 1 

AY(2AI 

FY(B2) 

FY ( 2Ai 

3 

FY 

DFN( I )  / 

i 

474H 

AZ(B2) 

AZ(2AI 

FZ ( B2 ) 

F Z(2A) 

5 

FZ/ 

/ 

66E17 • 

9/5E17.9 ) 

/ 

509 

FORMAT (1H0/ 

/ 

2101H 

J  AY( 43  ) 

AY ( 14 ) 

AY (32) 

/  P01 

31(43) 

P01K14) 

PQ11( 32)/ 

/ 

4101H 

Z 

Z 

Z 

1  1 

52 

12 

12  / 

6101H 

FY( 43 ) 

FY ( 14 ) 

FY ( 32 ) 

2 

j 

72 

22 

22  / 

8101H 

Z 

Z 

Z 

i  X 

/ 

9 

X 

X  / 

I 

1 

A  I4»6E17.9/3(4X*6E17.9/ 

) 

127H 

K  AW 

FW  / 

2  I4.2E17.9) 

510 

FORMAT (1H  / 

264H 

UTAN 

UNOR 

UX ( N-l/2 ) 

OY ( N— 1/2 

3)/4E17.9) 

• 

511 

FORMAT (1H0/ 
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262H  J 

TY  (21) 

3M 

YBPLUS/ 

482H 

TZ 1 21 ) 

5 

2  / 

6  I4.5E17.9/4X*5E17.9/ 

798H 

YB(4) 

6) 

YB(  5  ) 

998H 

2 

A 

2 

1  2UX.6E17. 

9/1 

263H 

PXA3 

3/4X»4E 17*9/ 

461H  ( ♦ ) 

POll 

54X*4E17«9/ 

661H  (-) 

PQ11 

74X*4E17#9/ 

861H 

FY(M+M) 

94X»4E17.9/ 

B61H 

POll  ( N-l/2 ) 

14X»4E17.9/ 

261H  NORM 

FY(1M) 

34X*4E17.9/ 

466H 

A21 

5M»T/ 

64X»4E17*9/ 

761H 

FY(1M) 

84X»4E17.9/) 

ENO 


FY(21 ) 

YBMINUS 

F2  ( 2 1 ) 

2 

YB  ( 3  ) 

YB  ( 1 ) 

YB ( 6)  / 

2 

2 

2  / 

PXA4 

PXA5 

PQ12 

PQ22 

P012 

PQ22 

F2 

FYCM-MI 

PQ12 

PQ22 

FI 

FYC2M) 

PT 

FYIIMJT 

FZ 

FYC2M) 

YBAR 

2 

Yb(  2 
2 

PXA6 

PX/ 

PX/ 

F2/ 

PX/ 

F2/ 

FY  ( 2 

FI/ 
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SUBROUTINE  LINE IN  L 
SUBROUTINE  LINOO 

COMMON/ I NOUMP/  NRtG*  RDTNM#  MOTION*  JBMlN*  JBMAX*  KBM1N* 

2  KBMAX*  TIME*  SMOMZl*  SM2TPT .  SMOMZ*  SMOMYI*  SMYTPT *  SMOMY* 

3  SENERI •  SIETPT*  SKfcTPT •  WORK*  SUMIE*  SUMKE*  SUMTt .  F1MPZ* 

4  FIMPY*  SMASSI •  SMSTPT*  SMASS*  PROBNO.  DTNM*  CUTOFF*  N* 

5  KBOT •  KTOP*  MAXN*  TMAX*  DTNMN*  SFW*  DTNMP5  *  OTNM2* 

6  KB*  CUT  1*  CUT2*  UYLBIN*  UYBIN*  UYRBIN*  UZLBIN*  UZBIN* 

7  UZRBIN*  UYLTIN*  UYT1N*  UYRTlN*  UZLTIN*  UZTIN*  UZRTIN.  KTM* 

8  JMIN*  UMAX*  KM1N*  KM  AX*  JL*  J3»  JR*  JRM* 

9  KT*  EIN( 5  )  »  K 1 NT ( 5 1 •  RHOIN(5)»  UYIN(5).  UZIN(5)» 

2  TINY  A 4 5 ! •  TINY  BIB)*  R  ZERO( 5 ) *BETA< 5) •  QCON(5)* 

A  E  S  (  5 )  •  ALFA( 5 ) •  BIG  A(5>*  BIG  B<5)»  RCP  V  S(5).E  ZEROJ5)* 
4  FMLZR ( 100 ) •  KSV( 24) *  SAV(12)*  FMLYRC 100) 

COMMON/THEREST/  A(55).  DIL(55)*  EPX(55)* 

2  EPY 4  551*  EPZ ( 53 ) *  FMLYB ( 55 )  *  FMLYTI55) •  FMLZB(55). 

3  FMLZT 1 55 ) •  LY1 ( 53 ) *  LY2(55>*  LZ1(55 ) •  LZ2(55I* 

4  PY( 55 )  *  PZ I  55) •  R1H ( 55 ) »  R2H(55)»  R3H(55). 

5  R4H ( 55 )  *  Z1H  4  55  )*  Z2H(55).  Z3H(55)»  Z4H(55)» 

6  U2 ( 55 *2) »  6(55*4) 

COMMON/AFTERALL/ 


A 

RX ( 55*5 ) • 

RY ( 55  *5 ) » 

UNMX(55*5) • 

1 

UNMY ( 55*5 ) • 

UNPX<55*5)» 

UNPY(55*5)  • 

FMASNMC  55  *5 ) • 

2 

ENM( 55  *5 ) • 

EN ( 55*5 ) • 

PNM (55*5)* 

PN ( 55  *5  )  » 

3 

PQNMXX (55 *5 ) • 

PQNMXY (55*5)* 

PQNMYY (55 *5)* 

PQNXX( 55  *5 )  • 

4 

PQNXY ( 55*5  )  • 

PQNYY (55*5)* 

RWA3Z (55*5)* 

RWA1Z (55*5)* 

5 

RWAE3Z(55*5 )  • 

RWAE1Z (55*5)* 

RH3Z( 55*5)* 

RH1Z ( 55  *  3  )  • 

6 

E3Z  ( 55  *5  )  • 

E1Z ( 55  *5 ) • 

RHO(55  *5 ) » 

VOL (55*5)* 

7 

ETA ( 55  *5  )  • 

A1Y (55*5) • 

A2Y (55*5)  • 

A3Y (55*5 )  • 

8 

A4Y (55*5)* 

A1Z(55*5). 

A2Z (55*5)* 

A3Z (55*5)  * 

9 

A4Z (55*5)  • 

F1Y (55*5 ) • 

F2Y (55*5)* 

F3Y (55*5)  • 

A 

F4Y(55.5) • 

F1Z ( 55*5 ) • 

F2Z(55*5) » 

F3Z(55*5  )  * 

1 

F4Z (55*5) * 

NTPT(55.5). 

FMSNZ (55*5)* 

FMASN(55*5) . 

2 

FMNMX (55*5 )  • 

FMNMY (55*5)* 

FMNX( 55*5)* 

FMNY(55*5)  * 

4 

AW1 ( 55  *5 ) • 

AW2 ( 55*5 ) • 

AW3 ( 55  *  5  ) » 

AW4( 55*5)* 

5 

RXM( 55*5)* 

RYM ( 55*5)* 

RXZ(55  *5 ) • 

RYZ (55*5)  » 

6 

Qll ( 55  *5 ) • 

Q12 (55*5)* 

Q22 (55  *5  )  • 

QX(55.5)  • 

7 

Pll (55*5 ) • 

P12 (55*5) • 

P22(55  *5 ) » 

PX ( 55  *5 ) • 

8 

PQX( 55*5 ) • 

PQMX (55  *5 )  • 

VO (55 *5 ) 

COMMON  ICON*  LlNCT*  LX1*  LX2 *  LX3*  LX4.  LX5* 

2  KC»  NDPA*  NEDIT*  NSIGt  NMASS*  NDMP 
COMMON/S/  SI  4  55 ) •  S2(55)»  S3(55).  S4I35)*  S5 1 55 ) • 

S6  4  55 ) •  S7( 55 ) *  S8  4  55  > •  S9(55)»  S10  4  55 ) *  S  X 1 1  55 ) » 

S12 ( 55 ) »  S 1 3  4  55 ) •  S14 ( 55 ) •  S15(55)»  S16(55).  S17(55)* 

S18 ( 55 ) •  S19  4  551  *  S20<55)»  S2l(55).  S22(55)»  S23155)* 

S24 ( 55 ) •  S25  ( 55 ) •  S26(55)*  S27(55).  S28  4  55 ) •  S29(55)» 

S304  55  ) •  531  (55)*  532(55)*  S33455) 

DIMENSION  OUMPV(l) 

EQUIVALENCE (NREG*OUMPV( 1) ) 

ENTRY  LINEIN1 


4  CALL  MIN 

DO  5  J* JMIN  * JMAX 

RXM( J*L)*S1 C J)  $RYM( J*L)*S2( J)  SUNMX ( J • L ) *53 ( J ) 

UNMY ( J*L ) *  54( J ) SFMASNMt J *L ) *  S5(J)S  ENM( J*L ) ■  S6(J) 

PNM( J*L ) *57 ( J)  5PQNMXX ( J  *  L ) *58 ( J )  SPQNMXY ( J*L ) *S9 ( J ) 

PQNMYY (J»L)*SI0(J)S  VOL ( J *L ) *S11 ( J ) S  RHO( J* L ) *512 ( J ) 

PQMX (J»L)*S13(J)  5FMNMXC J*L)*S14( J)  5FMNMY ( J* L  )  *515 ( J ) 

NTPT( J*L)*S16( J)  $AlY( J*L ) *517 ( J)  SA2Y ( J*L ) *518 ( J ) 
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A3Y ( JtL)*S19( J)  SA4Y( JtL)«S20< J)  SAIZ ( J* L ) -S2 1 ( J ) 

A22 ( JtL )*S22 ( J )  SA3Z(J*L)«S23( J)  SA4Z< JtL)«S24< J) 

AW1  ( JtL)*S23( J)  SAW2  (JtL)*S26(J)  SAW3  (Jtl)*S27(J> 

AW4  (JtL)*S28(J)  SRXZ ( J*L ) *S29 ( J)  SRYZ { J t L  )  «S30< J ) 

V0(JtL)*S31( J) 

3  CONTINUE 
GO  TO  8 

8  IF(NDPA.EQ.O)  RETURN 

WRITE(10)(  RXM(JtL)t  RYM(J.L). 

2  UNHX (  J»L )  •  UNMY ( J*L) »  FMASNH(J.L)*  ENM(JtL)» 

3  PNM( J*L ) *  PQNMXX ( J *L ) t  PQNMXY(J.L)*  PONMYY (JtL) t 

4  VOL (JtL) »  RHO ( JtL ) •  PQMX(JtL)t 

3  FMNMX ( JtL ) •  FMNMYt JtL) * 

6  NTPT ( JtL ) • 

7  A1Y ( JtL) »  A2Y(J*L»t  A3Y(J»L)»  A4Y(J.L)» 

8  A1Z ( JtL) •  A2Z( J»L) •  A3Z(J*L)t  A4Z(J*L). 

9  AW1  ( J»L ) *  AW2  (J»L)  •  AW3  (J*L)t  AW4  (JtL)t 

A  RXZ ( JtL) t  RYZ( JtL) •  VO( JtL ) •  J-JHINtJHAX) 

RETURN 

ENTRY  LINE1N4 

33  IF ( NOPA)40#40t 36 
36  WRITE! 10)  ( DUHPV ( J ) t J»1 t400 ) 

NDMP-NOMP+1 

WRITE ! 6t 100 JNONPtPROBNOt TIME tN 
40  DO  46  L*1 • 4 
41  CALL  MIN 

DO  12343  J* JMIN* JMAX 

RXM( J»L)*S1 ( J)  SRYM( JtL)*S2( J)  SUNMX ( J  t  L ) «  S3 ( J ) 

UNMY ( JtL ) *  S4 ( J  )  SFMASNM ( J  t L ) »  S3 ( J ) S  ENM (JtL)*  S6(J) 

PNM( JtL) *  S7 ( J ) SPQNMXX (JtL)*  S8 ( J ) 6PQNMXY ( JtL ) ■  S9(J) 

PQNMYY( J,L)-S10( J)S  VOL ( J tL ) *S 11 ( J ) S  RHO ( J . L ) -S12 ( J ) 

PQMX ( J t L ) »S 13 ( J )  JFMNMXC J.L)*S14( J)  SFMNMY ( JtL ) *513 ( J ) 

NTPT ( JtL) *S16 ( J )  SAlY(JtL)»S17(J)  SA2Y ( JtL ) *S18 ( J) 

A3Y (JtL  )«S19 ( J)  SA4Y( JtL)«S20( J)  SAIZ ( JtL)  *S21 ( J) 

A2Z (JtL) *S22 ( J )  SA3Z(JtL)*S23( J)  SA4Z( J tL ) *S24( J ) 

AW1  ( JtL ) *523 ( J )  SAW2  (JtL)*526(J)  SAW3  (JtL)*527(J) 

AW4  ( JtL)*528( J)  SRXZ ( JtL ) *S29 ( J)  SRYZ( JtL)*S30(J) 

V0( JtL ) *531 ( J) 

12343  CONTINUE 
44  IF (NDPA)46t46t45 

43  WRITEdOM  RXM ( JtL )  t  RYM(  JtL)  t 

2  UNMX (JtL) t  UNMY ( JtL ) t  FMASNMi JtL ) t  ENM( JtL ) t 

3  PNM ( J t L ) t  PQNMXX (JtL) t  PQNMXY ( JtL ) t  PQNMYY ( JtL) t 

4  VOL ( J  tL ) t  RHO ( JtL ) t  PQMX( JtL) t 

3  FMNMX ( JtL) t  FMNMYt JtL) t 

6  NTPT ( JtL ) t 

7  A1Y( JtL) t  A2Y ( JtL ) t  A3Y ( JtL ) t  A4Y ( JtL ) t 

8  A1Z ( JtL) t  A22 ( JtL ) t  A3Z(JtL)t  A4Z(JtL)t 

9  AW1  (JtL)t  AW2  (JtL)t  AW3  (JtL)t  AW4  (JtL)t 

A  RXZ ( JtL ) t  RYZt JtL) t  VO(JtL)t  J*JMlNtJMAX) 

60  TO  46 
46  CONTINUE 
70  RETURN 

100  FORMAT ( 22H0A  DUMP  HAS  BEEN  TAKEN/ 12H0DUMP  NUMBERt I6t23H  IS  FROM  PR 
10BLEM  NUMBER tF7*2 t8H  AT  TIMEtlPE16«7tlOH  ON  CYCLE  tI6) 

END 
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C  SUBROUTINE  LINOUT  L 
SUBROUTINE  LOUTOO 

COMMON/ I NDUKP/  NREG*  ROTNM*  MOTION*  J0MIN*  JBMAX*  KBMIN* 

2  KBMAX*  TIME*  SMOMZI*  SMZTPT.  SMOMZ*  SMOMYl*  SMYTPT*  SMOMY* 

3  SENERI.  SIETPT.  SKETPT.  WORK*  SUM1E.  SUMKE*  SUMTE*  FIMPZ. 

4  FIMPY*  SMASSI*  SMSTPT.  SMASS*  PROBNO*  OTNM*  CUTOFF*  N* 

3  KBOT •  KTOP.  MAXN*  TMAX *  DTNMN*  SFW*  DTNMP5*  OTNM2 • 

6  KB*  CUT  1  *  CUT2*  UYLBIN*  UYBIN*  UYRBIN*  UZLBIN*  UZBIN* 

7  UZRB1N*  UYLTIN.  UYTIN*  UYRTIN*  UZLTlN*  UZTIN*  UZRT1N*  KTM* 

8  JMlNt  JMAX*  KMIN*  KMAX*  JL*  J3.  JR*  JRM* 

9  KT*  E1N( 3 ) »  KINT ( 5 )  »  RHOIN(5)*  UYIN(5).  UZIN(5)* 

2  TINY  A ( 3  )  •  TINY  B(3)«  R  ZEROI3) *BETA(5) •  QCON(5>. 

A  £  S ( 3 )  •  ALFA( 5 ) •  BIG  A(5)*  BIG  B(5)»  RCP  V  S(5).E  ZERQ(5). 

4  FMLZR(IOO)*  KSV124) *  SAV(12)*  FMLYR(IOO) 

COMMON/ THEREST/  A(55).  DlL(55)»  EPX(55J. 

2  EPY ( 55 )  *  EPZ ( 55 ) •  FMLYB( 55 ) •  FMLYT ( 55 )  •  FMLZBI 55 ) • 

3  FMLZT ( 55 ) •  LY1 ( 55 ) •  LY2(55).  LZ1(55) •  LZ2(55)* 

4  PY ( 55 ) *  PZ ( 55 ) •  R1H ( 55 ) •  R2H(55>*  R3H(55)» 

5  R4H  ( 55  )  •  Z1H ( 55 )  •  Z2H(55).  Z3H(55J*  Z4H(55)* 

6  U2 ( 55  *  2  )  •  B ( 55  *4 ) 

COMMON/AFTERALL/ 


A 

1 

UNMY (55*5) » 

RX (55*5) • 

UNPX( 55*5) * 

RY ( 55  *5  )  • 

UNPY (55*5) * 

UNMX (55*5)* 
FMASNMt  55*5 ) • 

2 

ENM( 55*5)* 

EN(55*5 ) * 

PNM (55*5)* 

PN( 55  *5 ) • 

3 

PQNMXX (55*5)* 

PQNMXY (55*5) • 

PQNMYY (55*5)* 

PQNXXt  55*5)* 

4 

PQNXY ( 55*5 ) • 

PQNYY (55*5) * 

RWA32 (55*5)* 

RWA1Z ( 55*5)* 

5 

RWAE3Z (55*5)* 

RWAE1Z (55*5) • 

RH3Z( 55*5) • 

RH 1Z ( 55  »  5  )  » 

6 

E3Z (55*5)* 

E1Z ( 55 • 5 ) • 

RHOI55  *5 ) • 

VOL ( 55*5  )  • 

7 

ETA ( 55  *5  )  • 

A1Y(55.5) • 

A2Y (55*5)* 

A3Y ( 55*5 ) • 

8 

A4Y (55*5)* 

A1Z  <  55  *  5 ) • 

A2Z(55*5)  • 

A3Z (55*5)* 

9 

A4Z (55*5)  * 

FI Y (55 .5 ) • 

F2Y ( 55  *5  ) » 

F3Y ( 55*5  )  • 

A 

F4Y (55*5)* 

F1Z ( 55 ,5 ) * 

F2Z ( 55 *5 )  • 

F3Z ( 55*5  )  • 

1 

F4Z(55*5) * . 

NTPT (55*5) • 

FMSNZ ( 55*5 ) • 

FMASN(55  *5 ) • 

2 

FMNMX (55*5) • 

FMNMY (55*5) • 

FMNX (55*5)  • 

FMNY (55*5)* 

4 

AW  1 (55*5) * 

AW2155.5) . 

AW3 ( 55  *5 )  • 

AW4( 55*5 ) • 

5 

RXM( 55  *5  )  • 

RYM(55.5)* 

RXZ (55*5)* 

RYZ ( 55*5  )  • 

6 

Q1K55.5)  * 

012(55*5)* 

Q22 (55*5)* 

QXJ55.5) » 

7 

PI 1 ( 55  *5  )  • 

P12 ( 55  *5 ) • 

P22 ( 55*5)* 

PX(55*5) » 

8 

PQX (55*5)* 

PQMX (55*5)* 

V0( 55 *5  ) 

COMMON  ICON*  LINCT*  LXl.  LX2 *  LX3.  LX4*  LX5. 

2  KC»  NOP A*  NEDIT*  NSIG*  NMASS*  NDMP 

COMMON/S/  SI ( 55 ) »  S2(55).  S3(55).  S4(55).  S5(55)* 

2  S6 ( 55  )  *  S7 ( 55 ) •  S8(55)*  S9(55)»  $10(55}*  Sll(55). 

3  S12 ( 55 )  •  513(55)*  S14(55)»  515(55)*  516(55)*  517(55)* 

4  518(55)*  519(55)*  520(55)*  521(55)*  522(55)*  523(55)* 

5  S24 ( 55 )  •  525(55)*  526(55)*  S27(55)»  S28(55).  529(55)* 

6  530 ( 55 )  •  531(55)*  532(55)*  S33(55) 

DIMENSION  PTMASS( 55 ) 

EQUIVALENCE (PTMASS(l) *PY  ( 1 ) ) 

C**«* 

ENTRY  LINOUT 

Ct*H* 

luo  L-LX5 

300  IF ( NED I T ) 327 *327* 3000 

3000  IFiKSVI 11) )300 10*3002* 3001 

3001  KSV(U)*-KSV<11) 

READ ( 5  *  3003  I JJM IN  * J JMAX • KKM I N  * KKMAX 

30010  IF (LINCT-KMAX) 30012 *3001 1* 30011 

30011  KSV ( 11 ) *KSV ( 11 )+l 

30012  IF ( LI NCT-KKMIN) 327*30013*30013 

30013  IF(LINCT-KKMAX) 311*311*327 
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3002  JJM I N« JMI N 
JjKAX*JHAX 

111  00  312  J*JJMIN .JJMAX 

112  PTMASSC J)*2.*FMSNZ( J.L) 

IFCLINCT.LT.KMAX)  GO  TO  316 

DO  313  J* JJMI N .JJMAX 

RHO ( J » L  )«0.0 
PNC  J  tL  )«0.0 
FMASNCJ.L  )«0.0 
ETACJ.L  )»0.0 
ENCJ.L  )«0.0 
RH3ZC J.L)«0.0 
RWA3Z ( J.L ) *0*0 
E3Z( JtL)*0. 

RWAE3ZC J.L)*0* 


VOLC  J 
Pll  ( J 
P12C  J 
P22  ( J 


PX( J.L)*0. 


F1YC  J 
F2Y  ( J 
F3Y  ( J 
FAY  <  J 
F1Z  ( J 
F2Z  ( J 
F3ZC  J 
F4ZC  J 
Qll  ( J 
Q12  ( J 
Q22C  J 


L )  *0* 
L )  *0* 
L )  *0# 

U*0. 


L)«0. 
L)*0. 
L)«0. 
L)*0. 
L)*0. 
L)«0. 
L)*0. 
L)«0. 
L)«0. 
L)»0. 
L )  *0. 


QX ( J»L ) *0* 

A1YC J.L)*0. 

A2Y ( J»L ) *0* 

A3Y( J.L)«0. 

A4Y ( J*L ) »0» 

A1Z(J*L)»0# 

A2ZC J.L)«0. 

A3Z ( J.L ) *0* 

A4Z ( J»L ) *0» 

AWl ( J.L»«0. 

AW2( J.L)«0. 

AW3( J.L)«0. 

AW4 ( J.L ) *0* 

DO  320  1  *JJMIN» JJMAX. 10 
JPR I  NT* I +9 

IF ( JPR I  NT  »GT • JJMAX )  JPRINT*JJMAX 


WRITE! 6*1) 

2 

3  VOL ( J • L ) * 

4  UNMX (J.L). 

3  EIZ(J.L). 

6  RH3Z ( J  *  L ) t 

7  Qll(J.L).  A2Y(J»L).  A2Z(J.L)» 

8  FIZ(J.L).  P12 (  J.L)  •  012  ( J  »  L )  t 

9  AW2(J»L).  F2YCJ.L).  F2ZU.L). 

A  A4Y (J.L).  A4Z ( J»L ) *  AW31J.L). 

1  PX(J.L).  QX  (  J  »L )  »  A3Y ( J  *  L ) » 

2  F4Y(J»L)»  F4Z (  J.L ) •  J*l»JPRINT) 

327  DO  12345  J=JMIN.JMAX 

S1CJI*  RX( J.L )S  S2 ( J)«  RY ( J»L) S 
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PROBNO.  TIME* 

(  RX(J.L). 

RHO  ( J.L )  •  ETA(J.L). 
UNMY C  J»L )  •  FMASN ( J*L ) » 
RWAEIZ(J.L).  FMNX(J.L). 
RWA3ZC  J»L  )  t  E3Z(J.L>* 


A2ZC J.L) i 
012 ( J . L ) t 
F22CJ.L) . 
AW3I J.L) » 
A3Y( J.L). 

J* I » JPRINT ) 


DTNH* 

RYC J.L). 
ENCJ.L). 
RH1ZC J.L) . 
FMNYC J.L) . 
RWAE3ZC J.L). 
AW1( J.L) * 
A1YC J.L) » 
P22C J.L) • 
F3YC J.L) » 
A3ZC J.L). 


J.  LINCT.N. 
RWA1Z (J.L)  • 
PTMASSC J) • 
Pll (J.L) . 
F1YC J.L)  • 
A1ZU.U. 
0221 J.L). 
F3ZI J.L) • 
AW4C J.L) . 


S3 ( J ) *  UNPX(J.L) 


S4  (  J  )  *  UNPY(JtL)*  S5(J)«  FMASN  ( J»L  )  S  S6(J)-  EN(JtL) 

S7( J)-PN( JtL)S  S8  ( J ) -PQNXX ( JtL ) $  S9 ( J ) -PUNXY ( J tL) 

S1Q(  J)-PQNYY(J.L)*  Sll( J)«VOl( J»L)S  S12  (  J  >  *RHO(  JtL) 

S13 ( J ) *PQX( J*L  <  $S 14 ( J ) *FHN  X(JtL)  SS15(J)«FMN  Y(J.L) 

S16 ( J ) ■NTPT ( JtL ) 

S17 ( J)-A1Y (JtL)  JS18( J) *A2Y (JtL)  SS19 ( J ) -A3Y ( Jt L ) 

S20 ( J ) -A4Y ( J»L )  SS21(J)*AIZ(  JtL)  SS22 ( J J-A2Z ( JtL > 

S23( J)»A32( J,L)  SS24(J)«A42( J.L) 

S25 ( J ) *Awl  (JtL)  SS26(J)-AW2  (JtL)  SS27(J)«Am3  (JtL) 

S28(J)*AM4  ( JtL ) 

S29( J)-RXZ( JtL)  SS30(J)»RYZ( JtL) 

S31( J)-VO(JtL) 

12345  CONTINUE 
CALL  MOUT 

340  IF ( Li NCT-KMAX) 370 *350 1350 
350  SUM  T  £ ■ SUM 1 E + SUMKE 

IF ( NED I T ) 360 1 368 1 360 
360  WRITE(6t6) 

WRI TE ( 6»7 ) SUMIE  tSI ETPT  tSMYTPT  tF IMPY  tSMOMY I tSMOMY  *SMSTPT  tSUHXE 
1 tSKETPT tSMZTPT tFIMPZ t SHOMZ I »SMOMZ tSMASSI tSUMTEtWORKtSMASStSENERl 
RETURN 

370  IF( KC«GT*XT )G0  TO  380 
368  LINCT-LlNCT+1 
RETURN 
380  LX5-LX1 
LX1-LX2 
LX2-LX3 
LINCT-LlNCT+1 
60  TO  100 


FORMAT (14M1  PROBLEM- 

F7.2t5X6HTIME« 

E17.9t5X9HDELTA  T« 

E17.9// 

B(1H  // 
2119H 

Y 

Z 

VOL 

RHO 

3 

ETA 

E 

*  J*  K*CYCLE*/ 

4112H 

U(N-l/2) 

VIN-1/2) 

ZONE  MASS 

RH10 

5 

RMA10 

E10 

RWAE10/ 

6112H 

MOM  Y 

MOM  Z 

PT •  MASS 

RH30 

7 

RWA30 

E30 

RMAE30// 

8109H 

Pll 

Oil 

A1Y 

A1Z 

9 

AMI 

F1Y 

FI  Z/ 

A109H 

P12 

Q12 

A2Y 

A2Z 

1 

AM  2 

F2Y 

F2Z/ 

2109H 

P22 

022 

A3Y 

A3Z 

3 

AM3 

F3Y 

F3Z/ 

4109H 

PX 

OX 

A4V 

A4Z 

5 

AM4 

FAY 

F4Z/// 

6(10(6E17.9t3H  *. 1 3 1 lH*t I  3 1 1H»* 15 1 lH#/2( 7E17#9/ ) /41 7E17.9/ ) // ) ) ) I 

6  FORMAT (lH0t9Xt5MSUMlEtllXt6HSIETPTtl0Xt6MSHXTPTtl0Xt5HFIMPXtl IX 
1 t6HSM0MXI tlOXt5HSMOMXtllXt6HSMSTPT/10X*5HSUMXEtllXt6HSXETPTtlOX 
2t6HSMYTPT,tl0Xt5HFIMPYtllXt6HSMOMYI#l0Xt5HSMOMYtliX#6HSMASSI/10X 
3  1 5HSUMTE  •  11X»4HM0RK  1 76X  »5HSMASS/26X  1 6HSENERI /  ) 

7  FORMAT ( 7Xt lP7E16*7/7XlP7E16*7/7XtlP2E16*7t64Xt 1PE16#7/23X# 1PE16»7 ) 
3003  FORMAT (416 ) 

END 
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SUBROUTINE  NEWU  L 
SUBROUTINE  NWULOO 

COMMON /INDUMP/  NR  EG*  RDTNM*  MOT  ION*  JBMIN*  JBMAX*  XBMIN* 

2  XBMAX  *  TIME*  SMOMZI  »  SM2TPT  »  SMOMZ  .  SMOMY  I »  SMYTPT  •  SMOMY  • 

3  SENERI*  SIETPT*  SXETPT*  WORX*  SUMIE*  SUMXE.  SUMTE*  FIMPZ. 

4  FIMPY*  SMASSI*  SMSTPT.  SMASS.  PROBNO*  DTNM»  CUTOFF.  N. 

3  X60T*  XTOP »  MAXN»  TMAX *  DTNMN.  SFW.  OTNMP3 .  OTNM2. 

6  XB*  CUT  1  *  CUT2.  UYLBIN.  UYBIN.  UYRBIN*  UZLB1N.  UZBIN. 

7  UZRB1N.  UYLTINt  UYTIN.  UYRTIN.  UZLTIN.  UZTIN.  UZRTIN.  XTM* 

8  JM1N .  JMAX.  XMIN*  XMAX *  JL •  J3»  JR.  JRM. 

9  XT*  E 1 N ( 3 ) .  X I  NT ( 5 ) •  RHOIN15).  UYIN(5>.  UZ1N(3). 

2  TINY  A(3) •  TINY  B(3)t  R  ZERO ( 5 > *BETA(3 ) •  QCON(5)* 

A  E  S ( 3  )  »  ALFA( 3 )  •  BIG  A(5)»  BIG  B(5I*  RCP  V  S(3).E  ZERO (31* 

4  FMLZR ( 100 ) •  XSV ( 24 )  »  SAV(12)»  FMLYR(lOO) 

COMMON/THEREST/  A ( 55 ) *  OlL(55).  EPX(55). 

2  EPY ( 55 JV.  EPZ ( 55  )  *  FMLYB( 55 )  .  FMLYT(55)*  FMLZB(55). 

3  FMlZT(55)i^^LYl(55)«  LY2I55).  LZ1(55 )  •  LZ2(55). 

4  PY  ( 55 )  •  >Z*5lS),  R1H(55).  R2H(55)*  R3MI55). 

5  R4H  (  55  )  *  ZlH(55r.^-  Z2H(55).  Z3H(55)*  Z4H(55). 

6  U2 ( 55  *2 ) •  6(55*4) 

COMMON/AFTERALL/ 


A 

RXC55.5) * 

RY ( 55  *5  )  * 

UNMX (55*5) • 

1 

UNMY (55.5 )  . 

UNPX (55*5 ) * 

UNPY (55*5)  • 

FMASNM( 55  *5 ) • 

2 

ENM  (55*5). 

EN ( 55*5 ) * 

PNM (55*5)* 

PN( 55  *5 ) » 

3 

PQNMXX (55*5 ) * 

PQNMXY (55*5)* 

PONMYY (51- *5  )  » 

PQNXX (55*5)* 

4 

PQNXY (55*5) » 

PQNYY ( 55  *  5 ) » 

RWA3Z (55*5)* 

RWA1Z (55*5) • 

5 

RWAE3Z ( 55  *  5 ) » 

RWAE1Z (55*5)* 

RH3Z (55*5)  • 

RH1Z ( 55  *5 ) * 

6 

E3Z  (55*5)  * 

E1Z ( 35*5 )  • 

RHO (55*5) • 

VOL (55*5) • 

7 

ETA ( 55  *5 ) . 

A1Y ( 55*5 )  • 

A2Y (55*5)* 

A3Y (35*5)* 

8 

A4Y (55*5) * 

A1Z ( 55 *5 )  • 

A2Z ( 55  *5 ) • 

A3Z (55*5)* 

9 

A4Z (55*5) * 

F1YC55.5) . 

F2YI55.5). 

F3Y ( 55*5 ) • 

A 

F4Y (55*5). 

FlZ ( 55*5 ) * 

F2Z ( 55  *5 ) » 

F3Z (55*5) * 

1 

F4Z  (  55 .5  )  * 

NTPT ( 55  *  5 ) . 

FMSNZ (55*5 ) » 

FMASN ( 55*5)* 

2 

FMNMX (55*5) » 

FMNMY (55*5). 

FMNX ( 55.5) * 

FMNY ( 55*5 ) • 

4 

AW1 ( 55 .5 ) * 

AW2 ( 55 , 5 ) » 

AW3  ( 55  *5 )  * 

AW4(55*5) * 

5 

RXM( 55*5 ) * 

RYM ( 55*5). 

RXZ (55*5)* 

RYZ (55*5) * 

6 

011 (55.5) • 

012(55*5) . 

022(55,5) » 

0X( 53*5 ) • 

7 

Pll (35.5) . 

P12C55.5) . 

P22 (55*5)* 

PX( 55*5 ) * 

8 

PQX (55*5) » 

PQMX (55*5)* 

V0( 55  *5 ) 

COMMON  ICON* 

LINCT*  LXl » 

LX2  *  LX3 

•  LX4.  LX5 

2 

XC.  NDPA* 

NEDIT*  NSIG*  NMASS*  NDMP 

ENTRY  NEWU 


L*LX  X 
L2*LX2 
L5*LX5 
J*JMIN 

1 F (  (  XC+1 ) • LT «XI NT ( NREG ) ) GO  TO  5 
FMSNZ(J»L)*«25#( FMASN ( J  *  L )  +  «5*FMASN ( J*  L5 ) ) 

FMSNZ ( J*L2 ) *0 
FMNX ( J»L2 ) *0 
FMNY ( J*L2 ) *0 
00  4  j«jl»jr 

FMSNZ( J.L2 )«0 
FMNX CJ.L2 1*0 
FMNY ( J*L2 ) *0 

FMSNZ  ( J*L>  25*  <  FMASN  <  J*U  ♦FMASN  (  J-l*L)+.5*  (FMASN  ( J-1.L5K 
2  FMASNI  J.  L5  )  )  ) 

*■  JMAX 

FMSNZ ( J.L)*«25*( FMASN ( J-l.L )4*5*FMASN( J-1.L5 ) ) 


FMSNZt J.121-0 
FMNXI J*L2l-0 
FMNY ( J#L2 ) *0 
INT-l-INT 
GO  TO  9 

5  IF(INT.EQ.O)  GO  TO  7 

FMSNZ ( J . L ) ■ . 25* ( . 5*FMASN ( J  »  L ) ♦FMASN I J • L5  1 1 
DO  6  J-JL* JR 

6  FMSNZ (J»L)-«25*(*5*( FMASN ( J  •  L I ♦FMASN ( J-l • L ) ) ♦FMASN { J- 1  *  L5 ) ♦ 
2  FMASN (J*L5 I  I 

J-JMAX 

FMSNZ ( J i L ) ■ • 25* ( . 5*FMASN ( J-l *L I +FMASN I  J- 1 • L5 1 1 
INT  -1-INT 
GO  TO  9 

7  FMSNZ ( J*L )-• 125*(  F MASN ( J • L I ♦FMASN ( J • L5 1 1 
DO  8  J-JL* JR 

8  FMSNZ ( J»L) 125* <  FMASN( J*L)+FMASN< J-1*U  +FMASN( J-l *L5 )♦ 
2  FMASN ( JtL5 1 1 

J-JMAX 

FMSNZI J*U-.125*(  FMASN( J-l *L) ♦FMASN (J-l »L5 I  I 

9  TFXX-O* 

TFXY-O. 

DO  400  J* JM! N* JMAX 
IF(JMIN-J)  100*10*10 

10  CONTINUE 
CUT0N-CUT2*FMSNZ ( J . L ) 

FMNX(  J.D-0.0 

UNPX( J.O-O.O 

IF ( ( KC*GE*KBOT ) *AND* ( KC*LE*KTOP I IGO  TO  410 
2  0  FMOMCH-DTNM* (F2Z( J*L) 4F3Z  C  J  *L5 l+TFXY I 

IFl ABS(FMOMCH)-CUTON) 35*35*30 
30  FMNY ( J*L) -FMNMY (J*L)*FMOMCH 
GO  TO  40 

35  FMNY ( J • L ) *FMNMY ( J • L I 

40  UNPYI J.U-FMNYI  J.LI /FMSNZ ( J*LI-UNMY ( J*L| 

GO  TO  400 

100  IFl J— JMAX)  110*300*300 
110  CONTINUE 
115  CUT0N-CUT2*FMSNZ< J*LI 

FMOMCH-DTNM*  ( FI  Y(  J-1*L)*F2YC J»LI*F3YC  J*L5)-*>F4Y(  J-l *L5 l+TFXX ) 
IF(ABSIFMOMCH)-CUTON)  125*125*120 
120  FMNX (  J  •  L ) -FMNMX ( J • L I +FMOMCH 
GO  TO  130 

125  FMNX ( J • L ) -FMNMX ( J *L I 

130  FMOMCH-DTNM*  (F1Z(  J-l  *L)+F2Z  (J»L)*F3Z(J*L5  I+F4Z  ( J-l* L5 l+TFXY ) 

IF(ABSIFMOMCH)-CUTON)  145*145*140 
140  FMNY ( J • L ) -FMNMY ( J  *  L I *FMOMCH 
GO  TO  150 

145  FMNY ( J • L ) - FMNMY ( J • L I 

150  UNPX(J*L)«  FMNX ( J*L ) /FMSNZ ( J* L )-UNMX( J *L ) 

UNPY ( J*L)»  FMN Y ( J  *  L ) /FMSNZ ( J  *  L I -UNMY ( J • L ) 

GO  TO  400 
300  CONTINUE 
305  CUTON«CUT2*FMSNZ( J*LI 
FMNXC  J*L)*0«0 

FMLYRI KCl—  F4Y(J-1*L5)-F1Y( J-1*L|-TFXX 
FMOMCH-DTNM* ( FMLZR (KC)  *F4Z ( J-l . L5 I +F1Z ( J-l »L I ♦TFXY I 
I F ( ABS ( FMOMCH I -CUTON I  315*315*310 
310  FMNY (J*L)-FMNMY(J*L I ♦FMOMCH 
GO  TO  320 

315  FMNY( J*L) -FMNMY (J*L) 
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320  UNPX ( J»L ) *0*0 

UNPY ( J»L ) *  FMNY ( J t L ) /FMSNZ ( J*L  J-UNMY ( J»L ) 

4U0  CONTINUE 
RETURN 

410  FMNY ( J»L ) *0*0 
UNPY ( J*L ) *0*0 
60  TO  400 
END 


non 


C  SUBROUTINE  REDGEN  L 
SUBROUTINE  RGENOO 

COMMON/ 1 NDUMP/  NREG*  ROTNM*  MOTION*  JBMIN*  JBMAX*  XBMIN* 

2  XBMAX*  TIME*  SMOMZI*  SM2TPT*  SMOMZ*  SMOMYI*  SMYTPT*  SMOMY* 

3  SENERI •  SIETPT •  SXETPT.  WORK*  SUMIE.  SUMKE*  SUMTE*  FIMPZ* 

4  FIMPY*  SMASSI*  SMSTPT*  SMASS*  PROBNO*  OTNM*  CUTOFF*  N* 

5  XBOT •  XTOP •  MAXN*  TMAX*  OTNMN*  SFM*  DTNMP5*  DTNM2* 

6  XB.  CUT  1  •  CUT2*  UYLBIN*  UYBIN*  UYRBIN*  UZLBIN.  UZBIN* 

7  UZRBIN*  UYLTIN*  UYTIN*  UYRTlN*  UZLTIN*  UZTIN*  UZRTIN*  XTM. 

8  JMIN*  JMAX*  XMIN*  UMAX*  JL*  J3*  JR*  JRM* 

9  XT*  E INI 5 ) •  XINT (5 ) •  RHOINI5).  UYIN(5)»  UZIN(5). 

2  TINY  A<  5 )  •  TINY  B(5).  R  ZERO(5) • BE T A ( 5 ) •  QCON ( 3 ) • 

A  E  5(5).  ALFA! 3 ) •  BIG  ACS)*  BIG  B C S > •  RCP  V  S(5).E  ZEROI5)* 

4  FMLZRI100).  '  XSV ( 24 ) »  SAVU2).  FMLYR(lOO) 

COMMON/ THEREST/  A(55).  DIH55).  EPXI55). 

2  EPYI33I*  EPZ ( 33 ) •  FMLYB ( 33 ) •  FMLYTI 55 ) •  FMLZB ( 55 ) * 

3  FMLZT  (  55 )  •  LY1 ( 53  )  •  LY2(55).  LZK55I*  LZ2I55)* 

4  PY ( 55 ) »  PZ ( 55 ) •  R1H ( 55 ) •  R2HI55).  R3HI55). 

5  R4HI55 ) •  Z1HI55)*  Z2HC55).  Z3HI55).  Z4HI55I* 

6  U2I55.2).  B( 55 .4) 

COMMON /AFTER ALL/ 

A  RX ( 55*5 ) •  RY I  55  *5 )  •  UNMXI55.5). 

1  UNMY (55*5) •  UNPX (55*5)*  UNPY(55*5).  FMASNMC 55*5 ) • 

2  ENMI 55  *5 1 •  ENI55.5)*  PNMI55.5)*  PNI55.5). 

3  PQNMXX ( 55*5 )  •  PONMXY I  55 *5 > *  PONMYYC 55*5 ) •  PONXX(55*5)» 

4  PQNXY (55*5) »  PONYYI55.5).  RWA3Z(55*5)*  RWA1Z(35*5)* 

5  RMAE3Z (55*5)*  RWAE1Z I  55 *5 ) »  RH3ZI55.5).  RH1ZI55.3). 

6  E3Z (55*51*  E1Z (55*5)  •  RHO(55*5>*  VOLI55.5). 

7  ETA ( 55  *5 ) •  A1Y (55*5)*  A2Y(55*5),  A3Y(55.5»* 

8  A4Y (55*5)*  A1Z(55*5)»  A2Z(55*5)»  A3Z(55*5»* 

9  A4Z (55*5)*  FIY (55*5 )  •  F2Y(55*5).  F3YC55*5)* 

A  F4YI55.5).  F1Z ( 55  *5  )  t  F2Z(55*5).  F3Z(55*5)» 

1  F4ZI55.5).  NTPT (55*5 )  *  FMSNZ(55.5)*  FMASNI55*5). 

2  FMNMX (55*5)  •  FMNMY(55*5)»  FMNX(55*5).  FMNY(55*5|* 

4  AW1 (55 *5 ) •  AW2(55*5)  •  AM3(55*5I*  AW4(55*5)* 

5  RXMI55 *5 ) •  RYMI55.5 ) •  RXZ(55*5).  RYZC55*5)* 

6  Qll(55*5)»  Q12 (55*5)*  022(55*5)*  0X155*5)* 

7  Pll (55*5) »  P12 ( 55  *5  )  *  P22(55*5).  PXC55.5)* 

8  PQX( 55*5 ) •  PQMXI 55  *5 ) »  VO(55*5) 

COMMON  ICON*  LINCT*  LX1*  LX2 *  LX3*  LX4r  LX5. 

2  XC*  NOPA*  NEDIT*  NSIG.  NMASS*  NDMP 
COMMON/S/  SI ( 55 ) •  52(55)*  S3C55)*  S4I55)*  S5(35)* 

2  S6  ( 55 )  •  S7(  55 )  •  58(55)*  S9(55).  SlO(55).  S1K55). 

3  512(55)*  513(55)*  514(55)*  515(55)*  S16(55)»  517 ( 55 ) • 

4  516(55)*  519(55)*  S20(55)»  521(55)*  522(55)*  S23(55)* 

5  524(55)*  525(55)*  S26(55)»  527(55)*  528(55)*  529(55)* 

6  S30 ( 55 ) »  531(55)*  532(55)*  533(55) 

COMMON/ JKF ACE/  UNORM(55*5)*  YAZ(55*5)*  ZAZ(55*5) 

DIMENSION  TX ( 100 ) *  TY(100)»  TITLE(9) 

DIMENSION  DUMPV(l) 

EQUIVALENCE ( NREG • DUMP V ( 1 ) ) 

EQUIVALENCE (TX(1) *B < 1 ) ) » ( TY( 1 ) *B ( 101 ) ) • < T I TLE< 1 ) *B ( 201 ) ) 

INTEGER  P*  Q»  R 

— FORMATS 

1  FORMAT  (9A8) 

2  FORMAT  (6E12 *5 ) 

3  FORMAT  r 1216  ) 

4  FORMAT  « 16*  E12*5) 

5  FORMAT  (216*  5E12.5  /  (6E12.5)) 
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FORMAT ( 3 ( 2 16 *E12* 5 ) ) 

51  FORMAT  (15HOPROBLEM  NUMBER  •  F7.2) 

52  FORMAT ( 1H  / 

272H  ASV1  ASV2  ASV3  ASV4  ASV5  ASV6  ASV7  ASV8  ASV9  ASV10  AS 

3V11  ASV12/12 16 ) 

53  FORMAT  1 1H  / 

293H  '  SAVl  SAV2  SAV3  SAV4 

3  SAV5  SAV6/6E17.9) 

54  FORMAT ( 1H1/ 

224H  INPUT  FOR  REGION  NUMBER* 1 3 ) 

55  FORMAT (1H  / 

241H  VZ  RHOIN  EIN/3E17.9) 

56  FORMAT (1H  / 

278H  JBOT  JTOP  ABOT  ATOP  ABUG  MOTION  AFACE1  AFACt2  AF  Atfc.3 

3  AFACE4  AFACE5/5 16*618 ) 

60  FORMAT  (1H  / 

225H  UXIN  UYIN/2E17.9) 

62  FORMAT (1H  / 

2  8H  DTNM/E17.9) 

64  FORMAT (1H  / 

218H  MAXN  TIME  MAX/ 16 .E17.9 ) 

65  FORMAT ( lH  / 

21 OH  CUTOFF/E17.9) 

70  FORMAT ( 14H1  PR08LEM*  F7.2*5X6HTIME*  E17.9 .5X9HOELTA  T*  El?w9// 

B(1H  // 

2119H  Y  Z  VOL  RHO 

3  ETA  E  #  J#  X*CYCLE*/ 

4112H  UIN-1/2)  V ( N-l/2 )  ZONE  MASS  RH10 

5  RWA10  E10  RWAE10/ 

6112H  MOM  Y  MOM  Z  PT.  MASS  '  RH30 

7  RWA30  E30  RWAE30// 

6 ( 30 ( 6E 17«  9  *  3H  *. I  3  * 1H*. 1 3 • 1H* *  1 5 . lH#/2 < 7E17. 9/ > / ) ) I ) 

73  FORMAT  ( 1H0  5X  1HJ  3X  3HAZX  13X  3HA2X  13X  3HAZY  13X  3HA2Y  13X 
1  3HARX  13X  3HALX  /  10X  3HA1X  13X  3HA3X  13X  3HA1Y  13X  3HA3Y 

*  2  13X  3HARY  13X  3HALY  /I 

*  *74  FORMAT  (17.  6E1&.7  /  7X  6E16*7/) 

75  FORMAT  ( 1H0  9X  6HSENER I  10X  6HSMASSI  10X  6HSMOMY I  10X  6HSMOMZ I ) 

76  FORMAT  (7X  6E16-7) 

77  FORMAT  (7HOFOR  J*  16*  7H  AND  A*  16*  10H  THE  MASS*  E16.7*  6H  ERROR) 

78  FORMAT (1H  / 

253H  U( LEFT  BOTTOM)  U(BOTTOM)  U( RIGHT  BOTTOM)/ 

353H  V  V  V  // 

4(3E17.9)) 

79  FORMAT ( 1H  / 

250H  U<  LEFT  TOP)  U(TOP)  U(RIGHT  TOP)/ 

350H  V  V  V  // 

4(3E17.9) ) 

80  FORMAT (1H  / 

227H  JMAX  AMAX  U( INTERIOR)/ 

327H  V  // 

4(216. E17. 9)  ) 

81  FORMAT (1H  / 

222H  JMAX  AMAX  R  ZERO/ 

331H  INITIAL  DENSITY/ 

431H  ENERGY  // 

5 (2 I6*E17#9  )  ) 

83  FORMAT ( 1H  / 

232H  FMLY (RIGHT )  FMLZ(RIGHT)/ 

3  2E17.9/1H1/) 

84  FORMAT ( 24H0  JBMIN  JBMAX  ABM IN  ABMAX/4I6) 

85  FORMAT (1H  / 
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293H  TINY  A 

TINY  B  1 

3  VIS) 

E(0)/6E17.9/ 

459H  E  (  S ) 

5  4E17.9) 

ALPHA  1 

86 

FORMAT (1H  / 

2108H  J  Y 

J  Y 

3  J 

4(5(14. 3X.E17. 9) )) 

Y  J 

87 

FORMAT (1H  / 

2108H  K  Z 

K  Z 

3  K 

4(5(14. 3X.E17. 9) ) ) 

Z  K 

88 

FORMAT (1H  / 

224H  JMIN  UMAX 

KM IN  KMAX/4I6) 

89 

FORMAT (1H  / 

227H  JMAX  KMAX 
3(216. E17.9) ) 

U( INTERIOR) / 

90 

FORMAT (1H  / 

227H  JMAX  KMAX 
3(216. E17.9) ) 

V( INTERIOR)/ 

91 

FORMAT (1H  / 

222H  JMAX  KMAX 
3(216. E17. 9) ) 

R  ZERO/ 

92 

FORMAT (1H  / 

231H  JMAX  KMAX 
3(216. E17.9) ) 

INITIAL  DENSITY/ 

93 

FORMAT ( 1H  / 

230H  JMAX  KMAX 
3(216. E17. 9) ) 

INITIAL  ENERGY/ 

94 

FORMAT (34H0RSTART 

EXECUTE  TIME  IN  SECONDS 

95 

c**< 

FORMAT (34H0REDGEN 

*## 

ENTRY  REDGEN 

EXECUTE  TIME  IN  SECONDS 

BIG  A 
BETA 


Y/ 


1/ 


F9.31 
F9  •  3  ] 


STARTIME»TIMEF ( X ) 

NDPA-0 

NEDIT-0 

READ!  5.2  HCON 

IF( ICON.EQ.O)  GO  TO  99 

CALL  RSTART 

NSIG-5 

STAR  TIME* ( TIMEF ( X ) -START  I  ME ) / 1 000 . 
WRITE  1 6 *94) START l ME 


RETURN 
99  NSIG-1 

NMASS  *  1 

IF  ( EOF .5 )  101*100 

100  READ  (5.1)  TITLE 
WRITE(6.01)T1TLE 
READ  (5.2)  PROBNO 

IF  ( PR08N0.GT *0# )  GO  TO  103 
IF  ( NDMP.EQ.O )  GO  TO  102 

101  END  FILE  10 
REWIND  10 

102  STOP 

103  WR1TE(6*51) PROBNO 

READ (5. 3) (KSV( J) »J«1.12) 

WRITE  (6.52)  ( KSV ( J ) . JS1 • 12 ) 

READ  (5.2)  ( SAV ( J ) • J* 1 .6 ) 

WRITE  (6.53)  ( SAV ( J ) » J“1 *6 ) 

READ (5.5)  ( JYMIN.JYMAX*(TX( J) . J* JYHIN. JYHAX ) ) 
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i 

I 

t 


l 

i 


BIG  tt 
DC  ON/ 


2 


WRITE (6 *66)  ( J*TX( J) » JsJYMIN* JYMAX ) 

READ (5*5)  ( XZMIN.XZMAX*  ( TY ( A)  *X* XZMIN.XZMAX )  I 
WRITE (6 *87)  (X.TY(X)  *X«XZMIN*XZMAX ) 

READ (5*2)  UYLBIN»UYbIN*UYRBIN»UZLBIN»UZBIN»UZRBlN 
WRITE (6*78 )UYLBIN*UYBIN*UYRBIN.UZLBIN*UZBIN*UZRBIN 
READ (5*2)  UYT IN *UYT IN*UYRT IN  *UZLT IN.UZT IN.UZRT IN 
WRI TE ( 6 • 79 )  UYT1N»UYT1N*UYRT1N  »UZLT IN*UZT INtUZRT IN 
READ  (5*6)  JUMAX » XUMAX  *UY 1 N ( 1 ) * JVMAX .KVMAX  »UZ IN ( 1 ) 

WRI TE( 6*80 ) JUMAX » XUMAX  »UY IN ( 1 ) » JVMAX *XVM AX* UZIN( 1 ) 

READ  (5*6)  JZMAX.XZMAX.R  ZERO ( 1 ) • JRMAX. XRMAX*RHOIN( 1 ) • JEMAX .XtMAX • 
2  EIN(1) 

WRI TE (6*81 ) JZMAX»XZMAX*R  ZERO ( 1 ) * JRMAX.XRMAX *RHOI N( 1 ) » JEMAX. KEMAX • 
2  EINU) 

READ(5.2)SFMLYR.SFMLZR 

WRITE(6*83 ) SFMLYR  *SFMLZR  / 

READ (5*3)  JMIN  .JMAX  »XMIN  .XMAX 

WRITE(6*88) JMIN  .JMAX  »XMIN  *XMAX 

READ(5*3) JBOT * JTOP *KBOT »XTOP*XBUG. MOTION* (XINT( J) *J*1.5) 

WR I T  E ( 6  *  56 )  JBOT . JTOP . XBOT  *  XTOP  * XBUG  *MOT ION  * ( XI  NT ( J ) • J* 1 *5 ) 

READ  (5*2)  DTNM 
WRITE  (6*62)  DTNM 
READ  (5.2)  CUTOFF 
WRITE  (6*65)  CUTOFF 
READ  (5*4)  MAXN*  TMAX 
WRITE  (6*64)  MAXN*  TMAX 
JL  ■  JMlN+1 
J3-JL+1 
JR  *  JMAX-1 
JRM* JR-1 
XB  *  XMIN+1 
XT  *  XMAX-1 
XTM-XT-1 
MAXREG*XSV ( 1 ) 

E1*EIN 
RH01*RH0IN 
V  ZERO* 1 • /R  ZERO 
DO  10310  NREG-l.MAXREG 
WRI TE ( 6*54 )NREG 
READ (5*2)  TINY  A(NREG) * 

2  BIG  B(NREG)  •  RCP  V  S(NREG) • 

3  ALFA ( NREG ) •  BETA ( NREG )  • 

WflTE(6*85)  TINY  A(NREG) * 

^BIG  B(NREG).  RCP  V  S(NREG)  . 

'  3  ALFA (NREG)*  BETA (NREG)* 

10310  RCP  V  S(NREG)*1./RCP  V  S  (NREG) 

I F ( XBUGaGT *0  )  GO  TO  10320 
JBMI N* JMAX+1 
JBMAX* JMAX+1 
XBMI N*XMAX+1 
XBMAX«KMAX+1 
GO  TO  10325 

10320  READ(5»3)  JBMIN. JBMAX .XbMIN *XBMAX 
WRITE(6*84) JBMIN* JBMAX  *XBMIN  *XBMAX 
10325  JMX  >  JMAX  S  XMX  *  XMAX  S  CALL  INI T ( JMX.XMX ) 

NREG*1 
XL«1 
XU*2 

MAXU*  JUMAX 4-  ( XUMAX-1 ) #  JMAX 
MAXV*  JVMAX+(XVMAX-1)*JMAX 
MAXZ«  JZMAX+(XZMAX-1)*JMAX 
MAXR*  JRMAX+  (  XRMAX-1 )  *JMAX 


TINY  B (NREG) • 
E  ZERO (NREG)* 
UCON(NREG) 
TINY  B(NREG) • 
E  ZERO (NREG). 
QCON(NREG) 


BIG  A (NREG)  • 
E  S(NREG) » 

BIG  A(NRcG) • 
E  S(NREG) • 
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/ 


\ 


1030 


1031 

1033 


104 


C 

C 

C 


1040 

1041 

1042 

1043 

1044 


MAXE*  JEMAX+ ( KEMAX-1 ) *JMAX 
P  *  3 
Q  •  1 
R  *  2 

DO  104  J*JMIN*JMAX 
RX(J.Q)  *  TX(J> 

RY(JtO)  -  TY C 1 ) 

RX2C J*QI*RXi J.Q) 

RYZ ( J*Q ) *RY ( J*Q) 

IF( J.NE.JMIN)  60  TO  1030 
UNMX! J*Q|*0. 

UNMY !  J  *Q ) *UZ  LB I N 
GO  TO  1033 

IF ( J.NE.JMAX)  GO  TO  1031 
UNMX! J*Q)*0« 

UNMY ( J  »Q ) *UZRB I N 
GO  TO  1033 
UNMXI J»Q)*UYBIN 
UNMY ( J»Q)*UZBIN 
RHO! J*Q)*RH01 
VO! J*Q) *V  ZERO 

U2 1 J  *KL I *UNMX ( J .0 ) #*2+UNMY (  J»0)**2 
ENM( J*Q) «E1 
RHOUMAX.Q)  -  0. 

VO! JMAX*Q)*0# 

ENM( JMAX»0)  «  0. 

■MAIN  K  LOOP 


DO  134  K*KMIN*KT 
JK*K*JMAX 

DO  107  J* JMIN* JMAX 
JK1* JK+J 
RX(J.R)  •  TX ( J ) 

RY(J.R)  ■  TYIK+ll 
RXZ! J»R)-RX( J»R) 

RYZ i  J  *R ) *RY !  J*R ) 

IFI ( JX1.LE.MAXUJ.0R. (MAXU.LE.O) )  GO  TO  1040 
READ (5  *6)  JUMAX*KUMAX*UYIN!iJ 
WRI TE( 6*89 IJUMAX*KUMAX*UYIN!1) 

MAXU*  JUMAX+ ( XUMAX-1 ) #  JMAX 

IF! I JK1.lE.MAXV).0R.!MAXV.LE*0))  GO  TO  1041 

READ (3*6)  JVMAX»XVMAX*UZIN( 1 ) 

WRITE! 6*90 )JVMAX*KVMAX*UZIN!1) 

MAX V*  JVMAX+ ( KVMAX-1 ) * UMAX 

IFC  ( JK1.LE*MAXZUOR.!MAXZ.LE.O)  )  GO  TO  1042 

READ (5 *6)  JZMAX*KZMAX*R  ZERO(l) 

WRITE!6*91) JZMAX»KZMAX*R  ZERO! 1) 

V  ZERO-l./R  ZERO 

MAXZ*  JZMAX+ ! KZMAX-1 ) *JMAX 

IF! ( JK1.LE.MAXR).0R.!MAXR*LE.0I)  GO  TO  1043 

WRITE  16 #92) JRMAX.KRMAX*RH01 


READ! 3 *6)  JRMAX • KRMAX • RHO 1 

MAXR*  JRMAX+ ( K.RMAX-1 ) »JMAX 

IF! ! JX1.LE.MAXE).OR.!MAXE.LE.O) )  GO  TO  1044 

READ! 5  *6 )  JEMAX.XEMAX.El 

WRI TE( 6*93 ) JEMAX.KEMAXtEl 

MAXE*  JEMAX+ ( KEMAX-1 ) »JMAX 

Kl*K+l 

IF  ! ! J.LT.JBOT).OR.!Xl*LT*AWOT)»OR«! J*GT*JTOP)*OR.!Xl.GT.XTOP) 
l«OR* ( X1«EQ«KMAX ) )  GO  TO  106 
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UNHX(JtR)  *  0* 

UNHY(JtR)  ■  0. 

60  TO  1065 
105  RHO  UtR)  >  0* 

VO(  J  tR )  *0* 

ENH  (J.R)  •  0* 

GO  TO  1070 

106  IF  I  J*NE# JMIN)  GO  TO  10601 
UNHX ( J  tR ) *0* 

IFlKtNE.KT)  GO  TO  10600 
UNHY ( JtR ) «UZLT1N 

GO  TO  10605 

10600  UNHYI JtR)*U2IN 
GO  TO  10605 

10601  IF  (  J«NE* JMAX)  GO  TO  10603 
UNHXI J#R)*0. 

IF(K.NE.KT)  GO  TO  10602 
UNHY ( JtR ) *UZRT IN 

GO  TO  10605 

10602  UNMY< JtR)*UZlN 
GO  TO  10605 

10603  IFUC.NE.KTI  GO  TO  10604 
UNHX ( JtR ) »UYT IN 

UNHY ( J*R)»U2TIN 
GO  TO  10605 

10604  UNHX I  J  t  R  ) »U  Y I N 
UNHY( JtRl'UZIN 

10605  IF  ( X«EO*KT )  GO  TO  105 
1065  CONTINUE 

RHO ( JtR )  «RH01 
VO(JtR)»V  ZERO 
ENH( J.R). El 

1070  IF  (  ( K+l ) •EQaKlNTI NREG) I GO  TO  107 

U2  (  J  tKU  I  «UNHX  I J  tR  )  #»2*-UNHY  <  J  tR  )»*2 

107  CONTINUE 
RHO(JHAXtR)  *  0« 

VO<  JMAXtR )»0. 

ENH  I JHAXtR )  *  Ot 

108  00  110  J* JHlNt JR 

Y1P2«RX(  J+ltOKRXI  JtQ) 

Z12«RY< J*ltQ)-RY( JtQ) 

Y2P3*RX ( JtQ) +RX (JtR) 

223-RYI JtQ)-RY(JtR) 

Y3P4-RX( J»R)+RX( J+1»R » 

Z34-RYI JtR)-RY( J+ltR) 

Y4P1-RXI J+ltR)«-RX< J*ltQ> 

Z41*RY(  J+ltR)-RY(  J+ltQ) 

VOL (JtQ)  » (Z12#( Y1P2*#2~RX ( J+l tO ) *RX ( JtQ ) )+Z23*  C  Y2P3*#2-RX(  J  tO ) * 

1  RX(  JtR) )*Z34*(Y3P4-RX<  JtR)*RX(  J+ltR)  H-Z41*(  Y4Pi*#2-RX(  J+ltR)* 

2  RX<  JHtO))l/6* 

1085  FMASNH (JtQ) «RHO ( J  1 0 ) *VOL ( J  *  Q ) 

IF  (FHASNMl JtQJtGTtOt)  GO  TO  1091 
KP  »  K 

WRITE  ( 6 1 77 )  Jt  KPt  FHASNH(JtQ) 

NHASS  *  2 

1091  PNH( J  tO ) >0* 

1092  OIK JtQ)*Q12( JtQ)«Q22( JtQ) «QX( JtG)*0. 

IF(  KtNEtKlNT (NREG) )  GO  TO  1095 

YAZ  (  J  tNREG) *SQRT  (  ( RX  ( JtQ  )**2+RX  ( J  tO)  *RX(  J+l  tQ )  +RX  (  J+l  tQ  )*»2  ) /3t ) 
ZAZ  (  J  tNREG) * ( ( YAZ ( J tNRtG ) -RX ( J tQ ) )*RY ( J+l tQ) ♦ (RX( J+l tQ)-YAZ ( J  tNREG 
1  M*  RY(  J»0)  ) / ( RX ( J+l t Q ) -RX ( JtQ )  ) 
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UNORM! J.NREG)-UNMY( J.Q) 

1095  PQNMXX ( J  »  Q ) *PNM ( J  * Q ) +Q 1 1 ( J . Q ) 

PQNMXY ! J.Q) -012 ( J.Q) 

PQNMYY (J.Q) -PNM! J .Q ) +022 (J.Q) 

PQHX  (J.Q)  »PNM( J  »Q )  +QX  ( J.Q ) 

NTPT(J.Q)  »  1 

SMASSI  «  SM ASS 1 >F M  ASNM (J.Q) 

I F I  ( K+l ) •EQ.KINT  ( NREG) )G0  TO  110  i 
IF(K.NE.KINT(NREG) )GO  TO  1099 

SENERI«SENERl+FMASNM(J.P)*(ENM!  J.P)+.25*(U2(  J*1.KU+U2(J.XU>  )♦ 
2  FMASNM( J.Q)*(ENM( J*Q)+#25*(U2( J+1.KU)+U2( J.KU)  I  > 

GO  TO  110 

1099  SENER1 ■SENERl+FMASNMt J.Q )*( ENM! J.Q)+«125*(U2 ( J+1.KL)+U2( J.KD+ 

2  U2(J.KU)+U2(J+1»KU) )  I 

110  CONTINUE 

I F ( K • EQ . K l NT ( NREG ) ) UNORM ( JH AX . NREG ) -UNMY ( JMAX »Q I 

FMLYR(KI»SFMLYR 

FMLZR(K)*SFMLZR 

IF( K*GT .KM  IN )G0  TO  115 

FMSNZ! JMIN.Q)  ■•125»FMASNM( JMIN.Q) 

FMNMX (  JMIN»Q)*0* 

DO  1U  J* JL* JR 

112  FMSNZ ( J*0 )  ■•125*1 FMASNM (J.Q) +FMASNM ( J- 1 . U ) ) 

113  FMNMX(J.Q)  ■  FMSNZ  1 J .0 )*UNMX(  J.Q)  *2. 

FMNMY ( J*Q )  ■  FMSNZ! J*Q)*UNMY( J.Q»*2. 

SMOMY1  ■  SMOMY 1 +FMNMX (J.Q) 

114  SMOMZI  ■  SMOMZI+FMNMY 1 J*Q ) 

FMSNZ! JMAX *0)  * . 125*FMASNM( JR *Q ) 

FMNMX ! JMAX.Q ) »0» 

GO  TO  131 

115  IF!(K+1)#LT.KINT(NREG))G0  TO  118 
IF i ( K+l ) «GT* HINT! NREG H  GO  TO  117 
J-JMIN 

FMSNZ  ( J  »0 )  ■  •  25*  1 FMASNM !  J  *0 I ♦• 5*FMASNM  UiPM 
FMNMX ( J.Q ) *0« 

DO  116  J-JL.JR 

FMSNZ ( J .0 ) ■ • 25* 1 FMASNM ( J.Q ) +FMASNM ( J-l *0 )♦• 5* ! FMASNM 1 J-l  .P ) ♦ 

2  FMASNM! J.P) I ) 

FMNMX (J.Q) ■FMSNZ (J.Q) *UNMX ( J  »Q ) *2 • 

FMNMY! J.O) -FMSNZ 1 JtO)*UNMY ( J.Q) *2. 

SMOMY I -SMOMY 1+FMNMX (J.Q) 

116  SMOMZI  ■SMOMZI+FMNMY!  J.Q) 

J« JMAX 

FMSNZ! J.Q)-. 25*( FMASNM (J-l *Q)+.5*FMASNM( J-l.P) ) 

FMNMX! J.O) *0. 

GO  TO  131 

117  INT-i-INT 

DO  11700  J« JMIN. JMAX 
FMSNZ! J*0)«0. 

FMNMX! J.OI-O. 

11700  FMNMY!  J.0)*0. 

GO  TO  1350 

118  IF(INT.EQ.O)  GO  TO  121 
J-JMIN 

FMSNZ ! J  »Q )  ■ • 2  5* ( • 5*FMASNM (J.Q) +FMASNM ( J.P) ) 

FMNMX! J.O)  «0. 

DO  119  J-JL.JR 

FMSNZ! J.O) ■•25*(. 5* (FMASNM (J.O )+FMASNM(J-l.Q ) )+FMASNM(J-l.P)+ 

7  FMASHIMI  J>Pt  I 

FMNMX ! J.O ) -FMSNZ (J.O) *UNMX ( J .0 ) *2 • 

FMNMY ! J.O ) ■FMSNZ! J.O )*UNMY ( J.Q )*2. 
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SMOMY 1 * SMOMY 1 ♦FMNMX ( J  *0 ) 

119  SMOMZ 1 ■ SMOMZ 1 ♦FMNMY  ( J  *Q ) 

J-JMAX 

FMNMX! J*Q)»0# 

FHSNZ ( J  *Q ) ■ . 25* ( • 5*FMASNM ( J-l »Q ) ♦FMASNM ( J-l » P ) ) 

INT*1-INT 
GO  TO  131 

121  FMSNZ! JMINtQ)  125* ( FMASNM(JM1N»Q ) ♦FHASNM ( JHIN*P ) I 

FMNMX ( JMINtQ) *0* 

00  125  J« JL  t  JR 

123  FMSNZIJtO)  *• 125* ( FMASNM!  J  »Q ) ♦FMASNM ( J-l tU ) ♦FMASNHt  J-l *P ) 

1  ♦FMASNM! JtP) ) 

124  FMNMX(JtQ)  -  FHSNZ ( J  *Q ) *UNMX ( J *0 ) *2 • 

FMNHY (  J»Q)  «  FHSNZ ( J *0 ) *UNMY ( J tQ) *2  * 

SMOMY 1  *  SMOMY I ♦FMNMX ( J  tQ ) 

125  SMOMZI  •  SMOMZ 1 +F HNM Y ( J  t  Q ) 

FHSNZ ( JMAX *0 )  • • 1 25* ( FMASNM <  JR  »U ) ♦FMASNM ( JR  *  P ) ) 

FMNMX ( JMAXtQ > “0* 

126  IF  (K.LT.KT)  GO  TO  131 

FMSNZt JMINtR)  »*125*FMASNM( JMINtQ) 

FMNMX! JMINtR )*0« 

00  130  J* JL* JR 

126  FMSNZ(J*R)  *, 125* < FMASNM! J*Q)^FMASNM( J-l *Q ) ) 

129  FMNMXI J*R )  * | FMSNZ I J • R ) *UNMX ( J  * R ) *2 • 

FMNMY ( J»R )  ■/ FMSNZ! J*R)»UNMY( J*R)*2t 
SMOMY 1  «  SMOpYl*FMNMX I J*R I 

130  SMOMZI  ■  SMOMZ I ♦FMNMY ( J*R ) 

FMSNZ  (  JMAXtR)  125*FMASNM(  JRtQ) 

FMNMX ( JMAXtR )«0« 

FMNMY ( JMINtR)  •  FMSNZ ( JMINtR )*UNMY( JMIN*R ) *2. 

FMNMY ( JMAX *R)  «  FMSNZ ( JMAXtR )*UNMY( JMAX tR ) *2t 
SMOMY I  •  SMOMY I ♦FMNMXI JMAXtR ) ♦FMNMX! JMINtR) 

SMOMZI  •  SMOMZI+FMNMYI JMAXtR ) ♦FMNMY I JMINtR) 

131  FMNMY! JMINtQ 1 -FMSNZ I JMIN*Q)*UNMY( JMINtU) *2. 

FMNMY I JMAXtQ)  *  FMSNZ I JMAX *Q )*UNMY ( JMAXtO ) *2 # 

SMOMY I  *  SMOMY I ♦FMNMX I JMAXtO) ♦FMNMX (JMINtU ) 

SMOMZI  »  SMOMZ 1 ♦F MNM Y I JMA X » Q ) ♦FMNMY (JMINtU) 

1350  LS*P 
P  ■  0 
Q  ■  R 
R  «  LS 

1FI  (K+n.EQ.KlNTINREG)  >  GO  TO  1351 
KU»M0D(XL*2)+1 

1351  IF(K.EQ#KINT(NREG) )NREG*NREG+1 
KMOUT  ■  1 

132  00  12345  J* JMIN* JMAX 

Sll J)*RX(JtPI  S  S2 ( J ) «RY I JtP )  $  S3! J)-UNMX( J*P) 

S4 ( J ) ■UNMY I JtP )  S  S5  ( J ) ■FMASNM I J *P I  %  S6 ( J ) *ENM( JtP ) 

S7( J)«PNMI JtPIS  S8(J)»PQNMXX( J*P)8  S9( J)»PQNMXVI JtP) 

S10! J)*PQNMYY( JtPJS  S1K  J)»VOL(  J*P)S  S12 1  Jl  *RHOI  JtP  I 

S13I J)«POMX(JtP)  $S14 1 J I »FMNMX ( J  *P )  SS15I J)*FMNMY( JtP) 

S16I JI-NTPTI JtP I 

S17I JI»A1Y(J*P>  SS18I J)*A2Y( JtP)  SS19I J)*A3Y( JtP) 

S20I JI-A4YI JtPI  SS21!J)*A1Z( JtP)  SS22I J)*A2Z( JtP) 

S23 ( J)*A3Z( JtP)  $S24( J)*A4Z( JtP) 

S25  ( J )  ■  Awl  (JtP)  SS26U)*AW2  (JtP)  >S27|J)*AW3  (JtP) 

S28 ( J)*AW4  (JtP) 

S29I J)«RXZ( JtP)  SS30I J)*RYZI JtP) 

S31 ( J)*VO( JtP) 

12345  CONTINUE 
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1335 


CALL  MOUT 

133  IF( KSV( 12)*GT*0)  GO  TO 
00  1330  I*JMlNtJMAX#30 
JPRINT* 1+29 

IF  I JPRINT. GT.  JMAX )  JPRINT' 
DO  13300  J* 1 # JPRINT 
13300  FMSNZI JtP)*2.*FMSNZ(JtP) 
1330  WRITE(*t70)  PROBNO. 


JMAX 


< 


RHO ( JtP )  • 
UNMY ( J tP  )  t 
RWAE1Z ( JtP  )  • 
RWA3Z ( J*P )  t 


1335 

134 


VOL( JtP)  • 

UNMXI JtP)  t 
E1Z( JtP) t 
RH3Z( JtP) t 
J*I t JPRINT ) 

GO  TO  ( 134# 140 ) tXMOUT 
CONTINUE 

FMLYRI KMAX )  *SFMLYR 
FMLZRI  KMAX  )*SFMLZR 
XMOUT  ■  2 


TIME# 

RXI JtP) # 
ETA(J#P). 
FMASNMI JtP) t 
FMNMXI JtP ) t 
E3Z ( JtP ) t 


DTNMt 
RY (JtP) t 
ENM( JtP) t 
RH1Z ( JtP ) t 
FMNMY ( JtP) t 
RWAE3ZI JtP) t 


P  *  0 

DO  1345  J» JMIN# JMAX 
PNM(J#P)  ■  0 
VOL(JtP)  *  0 
NTPTCJtP)  *  0 
FMASNMI  JtP)  *  0 
PQNMXX< J»P)*0 
PONMXYI JtP 1*0 
1345  PQNMYYI J.P)*0 
GO  TO  132 
140  WRlTE(6t75) 

WRITE  (6t76)  SENERIt  SMASSIt  SMOMYIt.  SMOMZI 

DTNMP5*.5»DTNM 

DTNM2*2.*DTNM 

CUT  l*DTNM#CUTOFF 

CUT2*DTNM2*CUTOFF  #2* 

RDTNM*1./DTNM 

STARTIME* (TIMEF(X) -START  I  ME ) / lOOOt 

WRITE (6 #95) START I ME 

XSV ( 13 ) *1 

RETURN 

END 


Jt  AtNt 
RWA1ZI JtP)  t 
FMSNZ( JtP)  t 
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C  SUBROUTINE  RSTART  L 
SUBROUTINE  RSRTOO 

COMMON/ INDUMP/  NREG*  RDTNM*  MOTION*  JBM1N*  JBMAX*  XBM1N* 

2  XBMAX*  TIME*  SMOMZl*  SMZTPT*  SMOMZ*  SNQMVI*  SMVTPT*  SMUMY* 

3  SENERI •  S1ETPT *  SXETPT •  WORK*  SUMIE*  SUMXE*  SUMTfe*  F1MP2* 

4  FIMPY*  SHAGS I*  SMSTPT.  SMASS*  PROBNO*  OTNM*  CUTOFF*  N* 

5  XBOT •  KTOP*  MAXN*  TMAX*  OTNM N*  SFW*  OTNMPS*  OTNM2* 

•  XB*  CUT1*  CUT2*  UYLBIN*  UYBIN*  UYRB1N*  UZLttIN.  UZBIN* 

7  U2RBIN*  UYLTIN*  UYTIN*  UYRTIN*  UZLTIN*  UZTINt  UZRTIN*  XTM* 

•  JMIN*  JMAX*  KM l N*  KMAX*  JL*  J3*  JR*  JRM* 

9  XT*  EINI5 ) •  XINT ( 3 ) •  RHOINI5)*  UYINI5)*  UZ1NI5)* 

2  TINY  ACS)*  TINY  B(5)*  R  ZERO < 5 > »BET A( 5 ) .  QCON15)* 

A  E  S  C  5 ) •  ALFA! 5 )  •  BIG  ACS)*  BIG  BIS)  »  RCP  V  S(S)*E  ZEROI3J* 
4  FMLZRI 100) *  KSVI24) •  SAVI12)*  FMLYRl 100) 

COMMON/THEREST/  AI55)*  OlLISS) •  EPX(SS) » 

2  EPYISS)*  EPZ I  S3 )  •  FMLYBI33 ) •  FMLYTI35) *  FMLZBI 33  )  • 

3  FMLZT 1 33 ) •  LY1I33)*  LY2I53)*  LZ1I33)*  LZ2IS5)* 

4  PYI 35 ) *  PZI 55 ) »  R1HI55 ) #  R2HI55)*  R3HI55)# 

5  R4H 1 55 ) •  Z1H 1 55 ) *  Z2HI55)*  Z3HI53)*  Z4HI55)* 

6  U2 (55*2) •  B( 55*4) 

COMMON/AFTERALL/ 

A  RX ( 55*5 ) »  RYI 55  *5 ) *  UNMX(55*5>* 

1  UNMY(55*5) •  UNPXI55*5) *  UNPY(53*5)*  FMASNM(55»5 ) • 

2  ENMI 55 *5 ) »  EN(55*5)*  PNM(55»5)*  PH (55*5)* 

3  PONMXX(53*5 ) •  PONMXYI 55*5) .  PONMYY(55*5) »  PQNXXI35.5). 

4  PQNXY(55*5 ) •  PQNYYI55*5)*  RWA3Z(55*5)»  RWA1Z(55*5)» 

5  RWAE3ZI 55*5 ) •  RWAE1ZI55*5 ) •  RH3Z(55*5)»  RH1Z(55»3)« 

6  E3ZI 55*5 ) •  E1Z(55*5) *  RHOI35.3).  VOL(55*5)» 

7  ETA(55*5 ) *  A1YI53.3)#  A2Y(55»5)»  A3Y(35*5)* 

I  A4Y 153*3 ) •  A1Z 1 53*5) •  A2Z(55*5)»  A3Z(55*5)» 

9  A4Z ( 55 *5 ) »  F1YI55.5) *  F2YI33.3).  F3Y(55*5)* 

A  FAY  135*5) »  FIZ(55*5)«  F2ZI53.3).  F3Z(55*5)» 

1  F4Z 1 53*5 ) *  NTPT 155(5)*  FMSNZ(55*5)»  FMASNI35.5)* 

2  FMNMX(55*5 ) •  FMNMY 1 35*5 ) •  FMNX(33*3).  FMNY(55*5)» 

4  AW 1(55*5) •  AW2 (55*5) •  AW3(55*S)»  AW4(55*5)» 

5  RXMI55 *5 ) •  RYM(55»5)«  RX2(55»5)»  RYZ(S5*3|* 

6  011(55*5)*  012(55*5)*  022(55*5)*  QX(55*5)* 

7  Pll (55*5 ) •  P12 (55*5) *  P22(33*3).  PX(55*5)» 

•  POX (55 *5) •  P0MXI53*3) •  VOI55*5) 

COMMON  ICON*  LINCT*  LXl.  LX2*  LX3*  LX4.  LX5* 

2  KC*  NOP A*  NEOI T *  NSIG*  NMA$S*  NOHP 

COMMON/S/  S1I55)*  $2(55)*  $3(55)*  $4(55)*  S5(55)* 

2  $4(55) •  $7(55)*  $1(55)*  $9(55)*  $10(55)*  $11(55)* 

3  $12(55)*  $13(55)*  S14C  5S ) *  S15(55)»  $16(55)*  $17(35)* 

4  $11(55)*  $19(55)*  $20(55)*  $21(55)*  $22(55)*  $23(55)* 

5  $24(55)*  $25(55)*  $24(55)*  $27(55)*  $24(55)*  $29(55)* 

4  $30(55)*  $31(55)*  $32(55)*  $33(53) 

DIMENSION  DUMPV(l) 

EOU I VALENCE ( NREG • OUMP V ( 1 ) ) 

C*«MMM» 

ENTRY  RSTART 

<;••••• 

00  40  XX* 1*1 CON 

10  REA0(9)  (OUMPVIJ) *J«1*400) 

I F ( I0CHECX*9) 12*12 
12  IF ( KK*OE* ICON )G0  TO  25 

15  00  20  X«KM1N*KMAX 

READ! 9)  OUMPV(l) 

IF( 10CHECK»9 )20*20 
20  CONTINUE 

GO  TO  40 
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25  JMX*JMAX 
KMX* KM AX 

CALL  INIT( JMX.KMX) 

30  00  45  K-KMIN.KPAX 

READ!  9 )  (  F.XM  ( J*  1 ) »  RYM(J.l). 

2  UNMX( J» 1 ) »  'JNMY ( J* 1 )  *  FMASNM(J.l).  ENM(J.l). 

3  PNM( J. 1 ) »  PQNMXX ( J » 1 ) ♦  PQNMXY(J.l).  PQNMYY(J.l). 

4  VOL ( J • 1 ) •  RHO ( J» 1 )  *  POMX(J.l). 

5  FMNMX ( Jt  1 )  »  FMNMY(J.l). 

6  NTPT( J.l ) • 

7  A1Y(J*1).  A2Y »  J  •  1 )  *  A3Y (J.l).  A4Y(J.l). 

6  AlZ(J.l).  A2Z (J.l).  A3Z (J.l).  A4Z (J.l). 

9  AMI  (J.l).  AM2  (J.l).  AM3  (J.l).  AW 4  (J.l). 

A  RXZIJiDi  RYZ(J.l).  VO(J.l).  J* JMIN . JMAX ) 

IF(KK.LT.ICON)  GO  TO  45 
39  00  12345  J* JMIN. JMAX 

SIC J)*RXM(J.l)  SS2< J)*RYM(J.l)  SS3 (J ) *UNMX ( J . 1 ) 

S4 ( J )*UNMY ( J • 1 ) $S5 ( J ) *FMA$NM( J* 1 ) SS6 ( J ) =ENM( J* 1 ) 

S7C J)*PNM(J.1)S  S8( J)*PQNMXX( J.1)S  S9 ( J  )  *PQNMXY ( J • 1 ) 

S10 ( J ) *PQNMYY ( J  .  1 )  $  Sll( J)*V0L(J.1)S  S12C J)*RHO( J.l ) 

S13 ( J) *PQMX ( J* 1 )  SS14C J)*FMNMXC J*l)  $S15 ( J ) *FMNMY ( J • 1 ) 

S16C J)*NTPTC J*ll 

S17 ( J  >  *A1Y ( J  *  1 )  SS18C J)*A2Y(J.l)  /  SS19C J)*A3Y( J.l) 

S20C J)*A4Y( J.l)  $S21 ( J) *A1Z ( J* 1 )  $S22 ( J ) *A2Z ( J* 1 ) 

S23( J)*A3Z( J.l )  SS24( J)*A4Z( J. 1) 

S25 ( J) *AW1  I J • 1 )  SS26C J)*AW2  (J.l)  SS27(J)*AW3  (J.l) 

S28(J)*AW4  (J.l) 

S29( J)*RXZ( J.l)  $S30(J)*RYZ( J.l) 

S31I J)*VO(J.l) 

12345  CONTINUE 
CALL  MOUT 
45  CONTINUE 
60  CONTINUE 

REWIND  9  / 

READ (5 .4) 

RE AO (5.1) (KSV( J) *J*1.12) 

READ (5. 2) (SAV( J) • J*1.6) 

READ( 5 .3 )MAXN*TMAX .OTNMN.PROBNN 

63  IF (PROBNN) 70.70.64 

64  PROBNO*PROBNN 

70  WR1TE(6.53) ICON.PROBNO.T IME.N 

WRITE (6 .4) 

WRITE  (6.50) (KSV( J) .J*1.12) 

WRITE  (6.51) (SAV( J) .J*1.6) 

WRITE(6.52)MAXN.TMAX. OTNMN.PROBNN 
RETURN 

1  FORMAT (1216) 

2  FORMAT (6E12 .5) 

3  FORMAT (I6.5E12.5) 

4  FORMAT (72H 

1  > 

50  FORMAT ( 1H  / 

272H  KSV1  KSV2  KSV3  KSV4  KSV5  KSV6  KSV7  XSVtt  KSV9  KSV10  KS 
3V11  (CSV  12/ 

4(1216))  / 

51  FORMAT flH  / 

293H  SAV1  SAV2  SAV3  SAV4 

3  SAV5  SAV6/ 

4 (6E17.9 ) ) 

52  FORMAT  ( 1H  / 

250M  MAXN  TMAX  OTNMN  PROBNN/ 
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3  I6*3E17.9/) 

33  FORMAT (22H1THIS  IS  A  RESTART  RUN/ 

240H  DUMP  PROBLEM  TIME  '  CYCLE/ 

3I6*F11.2*E17. 9*161 
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SUBROUTINE  STRAIN  L 
SUBROUTINE  STRNOO 

COMMON/ INDUMP/  NREG*  RDTNM*  MOTION*  JBM1N*  JBMAX*  KBM1N* 

2  KBMAX*  TIME*  SMOM21*  SM2TPT •  SMOM2 •  SMOMYI*  SMYTPT *  SMOMY* 

3  SENERI •  SItTPT*  SKETPT*  WORK.  SUMIE*  5UMKE*  SUMTt*  FIM Pi, 

4  FIMPY*  SMASSI*  SMSTPT*  SMASS*  PROBNO*  DTNM*  CUTOFF*  N* 

5  XBOT*  KTOP •  MAXN*  TMAX.  DTNMN*  SFW*  DTNMP5  *  DTNM2* 

6  KB*  CUT  1 •  CUT2*  UYLBIN*  UYBIN*  UYRBIN*  U2LBIN.  U2B1N* 

7  UZRBIN*  UYLTIN*  UYTIN*  UYRTIN*  UZLTIN.  UZTIN*  UZRT1N*  XTM* 

8  JMIN*  JMAX *  KM1N*  XMAX*  JL*  J3*  JR*  JRM* 

9  XT*  EIN( 5  )  »  XI  NT ( 5 1  •  RHOIN(5»*  UYIN(5)*  UZIN(51* 

2  TINY  A  <  5 ) •  TINY  B<51*  R  ZERO! 5 ) *BETA( 5 ) •  QCON(5). 

A  E  SCSI*  ALFA ( 5 )  •  BIG  A(5l*  BIG  B(5l*  RCP  V  S(5)*E  ZERQ(5l. 
4  FMLZR(lOO).  XSV ( 24 ) *  SAV(12).  FMLYR ( *00) 

COMMON/ THEREST/  A(55).  DlL(55l*  EPX(55). 

2  EPY1551*  EPZ (351*  FMLYBt  55 1  *  FMLYT(55l*  FMLZB(55). 

3  FMLZT ( 55 ) .  LY1 ( 55 ) ,  LY2(55).  LZ1(55) •  LZ2(55)» 

4  PY ( 55 ) .  PZ ( 55  ) .  R1H(55)»  R2H(55l*  R3H(55>. 

5  R4H 155)*  Z1H ( 55 ) •  Z2H(55).  Z3H(55)»  Z4H(551» 

6  U2 ( 55*2) •  B( 55 .4) 

COMMON /AFTERALL/ 


A 

RX ( 55 • 5 ) » 

RY( 55  *5 )  • 

UNMX (55*5) • 

1 

UNMY (55*5) • 

UNPX (55*5) • 

UNPY (55*5)* 

FMASNM<  55*5) • 

2 

ENM( 55 *5 )  • 

EN ( 55  *5 ) • 

PNM (55*51* 

PN( 55*5)  • 

3 

PQNMXX (55*5)* 

PQNMXY (55*5) • 

PQNMYY (55*51* 

PQNXX (55*5) * 

4 

PONXY  <55*51* 

PQNYY (55*5)* 

RWA3Z (55*51* 

RWA1Z (55*51* 

5 

RWAE3Z (55*5)* 

RWAE 12(55*51 • 

RH3Z ( 55*5 ) • 

RH1Z ( 55  *5 ) * 

6 

E3Z (55*51* 

E1Z ( 55  *5 ) • 

RHO (55*51* 

VOL (55*5)* 

7 

ETA(55*5) » 

A1Y ( 55*5 ) • 

A2Y (55*51* 

A3Y (55*5)  • 

8 

A4Y (55*5)* 

A1Z ( 55  *5 ) • 

A2Z (55*5)* 

A3Z ( 55*5 )  • 

9 

A4Z (55*5) • 

F1Y(55.5) * 

F2Y (55*51* 

F3Y (55*5)  » 

A 

F4YC55.5). 

F1Z ( 55  *5 ) • 

F2Z (55*51* 

F3Z ( 55*5  )  • 

1 

F4Z (55  *5  )  • 

NTPT(55*5I * 

FMSNZ (55*51* 

FMASNi 55*51* 

2 

FMNMXI 55*5 1 • 

FMNMY (55*5)* 

FMNX (55*5)* 

FMNY (55*51* 

4 

AW1 (55*5)* 

AW2 (55*5) • 

AW3 (55*51* 

AW4 ( 55*5)  • 

5 

RXM (55*5)* 

RYM(55*5) * 

RX2 (55*51* 

RYZ ( 55 *5  )  » 

6 

011(55*51* 

012(55*51* 

022(55*5)* 

0X( 55*5) » 

7 

P1K55.5)  . 

P 12(55.5). 

P22 ( 55*51* 

PX( 55  *5) • 

8 

POX (55*5)* 

PQMX(*5*5)» 

VO ( 55  *5 1 

COMMON  ICON*  LINCT*  LX1.  LX2 *  LX3*  LX4*  LX5 » 
2  KC*  NDPA*  NEOIT*  NSIG*  NMASS*  NDMP 
REAL  LY1*  LY2  *  LZ1*  LZ2 

• 

ENTRY  STRAINP2 


L-LX3 
L2*LX4 
GO  TO  4 

C****» 

ENTRY  STRAINP 

C**#*# 

L*LX2 
L2*LX3 
GO  TO  4 

C***«* 

ENTRY  STRAIN 

L-LX1 

L2*LX2 

IF ( ( ( XC^l ) *GE*XINT ( NREG) ) • AND* I ( KC-2 ) • LT • ( XI NT ( NREG ) ) ) )GU  TO  4 
00  3  J* JMIN • JMAX 
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£-  U>  N> 


1 


5 


/ 


6 


7 


8 


9 


60  TO  ( 4* 1 *2 ) »MOT ION 
I F ( KC.EQ# 1  )  GO  TO  2 
FMASNU.L  )»FMASNM(J,L  ) 

RX(  J.L2)*RXM(J.L2)+UNMX<  J.L2)*DTNM 
RY(J.L2)»RYM(J.L2 )+UNMY (J*L2)*DTNM 
DO  200  J-JMIN.JR 

IF  C (  MOTION. EQ.l ) . AND. (N.GT.l) ) RETURN 


IF (MOTION 

• 

NE.l)  GO  TO  3 

R1H  (  J 

)»2. 

•RX(J.L) 

Z1H  (  J 

)«2# 

*RY ( J.L ) 

R2H(  J 

)  *RX 

J+l.L )*2. 

Z2H  (  J 

)*RY 

J+1.L)*2» 

R3H  (  J 

)»RX 

J+1.L2 ) *2* 

Z3H  (  J 

)  *RY 

J+1.L2 ) *2. 

R4H(  J 

)  *RX 

J»L2)*2« 

Z4H  ( J 

)  »RY 

J.L2)*2. 

GO  TO 

6 

R1H  (  J 

)>RX 

J.L)+RXM( J.L) 

Z1H  (  J 

)*RY 

J.L)+RYM( J.L) 

R2H  ( J 

)«RX 

J+1»L)+RXM(J+1*L) 

Z2H(  J 

)  *RY 

J+1.L)+RYM(  J+l.L) 

R3H  (  J 

)*RX 

J+1.L2)+RXM(  J+1.L2) 

Z3H ( J) *RY 

J+l.L2)+RYM( J+1.L2) 

R4H ( J)»RX 

J.L2 ) +RXM( J.L2 ) 

Z4H  ( J 

)«RY 

J.L2 ) +RYM( J.L2 ) 

A41M« 

RXM  ( 

J 

i.L)*RYM(  J.L2J-RXMI  J.L2)*RYM(  J.L) 

A12M*RXM< J+1.L)*RYM( J.LJ-RXMl J*L)*RYM( J+l.L) 

A23M*RXM< J+1.L2)*RYM( J+1.L)-RXM( J+1.L)*RYM( J+1.L2) 
A34M*RXM( J.L2)*RYM( J+1.L2)-RXM( J+1.L2)*RYM( J.L2) 

R41H»R4H (  J  )  +R1H  (  J  ) 

R12H*R  1H  (  J )  +R2H  ( J  ) 

R23H*R2H (  J )+R3H ( J  ) 

R34H«R3H(  J)+R4HCJ) 

A41«RX(J*L)#RY(J.L2) -RX (J.L2)*RY(J.L) 

A12«RX( J*1.L)*RY( J.L)-RX( J.L)*RY(J+I»L) 

A23*RX( J+1.L2)*RY ( J+l *L )-RX( J+1.L)*RY( J+1.L2) 

A34*RX ( J*L2)*RY(J+1.L2)“RX(J+1.L2)*RY(J*L2) 

IF ( HOT  ION* NE* 1 )  GO  TO  7 

A41H*2.*A41 

A12H*2.#A12 

A23H«2.*A23 

A34H«2.*A34 

GO  TO  8 

A41H*A41  +  A41M 

A12H-A12  +  A12H 

A23H*A23+A23M 

A34H*A34+A34M 

A1Y(  J.L)«(  (24H(  J)»R41H-Z2H(  J ) *R12H > * . 3+A41H+A12H )  /(-12.  ) 
A1Z( J.L)«(R2H( J)*R12H-R4H(J)*R41H)/(-24. ) 

A2Y ( J.L ) ■ ( (Z1H( J)*R12H-Z3H( J)*R23H)*.3+A12H+A23H)/(-12. > 
A2Z  (  J»L  )  *  (R3H(  J  ) #R2  3H-R iH ( J  ) *R  1 2H )  /  (  -24 .  > 

A3Y  ( J.L )  =  (  (Z2H(  J)#R23H-Z4H(  J)*R34H>*.5+A23H*-A34H)/(-12.  ) 
A3Z(  J»L)«(R4HI J)«R34H-R2  H ( J ) *R23H J / ( -24, ) 

A4Y(  J.L)«(  (Z3H(  J)*R34H-’1H(  J ) *R41H ) ♦•5+A34H+A41M )  /i-12*  ) 
A4Z( J.L)»(R1H( J)*R41H-R3M(J)*R34H)/(-24.) 

GO  TO  (200*9.9) .MOTION 
CONTINUE 

C0MPY»A1Y( J»L)*UNMX( J*L)+A2Y( J.L)*UNMX( J«-1.LH-A3Y( J.L)* 

1  UNHX ( J+ 1 »  L2 ) +A4Y ( J  *  L ) *UNMX ( J  *  L2 ) 

C0HPZ«A1Z ( J»L ) *UNMY (J*L)+A2Z(J*L) *UNMY (J+1.L)+A3Z(J»L)* 

2  UNMY ( J+ 1 . L2  ) +A4Z (J.L) *UNMY  ( J • L  2 ) 
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VOL ( J.L ) -VOL t  J .L)  +DTNM* ( COMPY+COMPZ ) 

OIL ( J I *VOL(  J  .  L  )  /  ( FMASN C  J  »L ) *VQ  ( J .  L ) )-l • 

RHO( J#L)«FMASN( J.L)/VOL( J.L ) 

RA32«RXZ(J+l.L2l-RXZ< J+l.L) 

ZA32-RYZ1 J+l »L2)-RYZ( J+l.L) 

RB12-RXZ) J.L)-RXZ< J+l.L) 

ZB12"RYZ(J#L) -RYZ (J+l.L) 

RPA32-RXI J+l .L2)-RX( J+l.L) 

ZPA32-RY ( J+l »L2 )-RY( J+l *  L ) 

RPB12-RX( J.L )-RX( J+l.L ) 

ZPB12-RY< J.L) -RY< J+l.L) 

RA14-RXZ(  J.D-RXZ ( J.L2) 

ZA14-RYZ(J.L)-RYZ< J.L2) 

RB34-RXK J+1.L2)-RXZ( J.L2) 

ZB34-RYZ( J+1*L2)-RYZ( J.L2) 

RPA14-RX(J.L)-RX< J.L2) 

ZPA14*RY( J.L)-RY( J.L2) 

RPB34-RX ( J+1.L2)-RX(J»L2) 

ZPB34-RY (J+1.L2) -RY ( J . L2 ) 

AAB3 1- 1. /(RA32+ZB12-RB12+ZA32) 

AAB1 3* 1. / ( RA14*ZB34-RB34*ZA14 ) 

AAB24-1./ ( RB12*ZA14-RA14*ZB12 ) 

AAB42- 1 •/ ( RB34*ZA32-RA32*ZB34 ) 

A22-.25*(AAB31*(ZB12*RPA32-ZA32*RPB12)+AAB13*(ZB34*RPA14-ZA14* 

1  RPB34 ) +AAB24*  (ZA14*RPB12-ZB  12*RPA14 ) +AAB42* ( ZA32+RPB34- 

2  ZB34*RPA32 ) ) 

A23A«.25*(AAB31*(RA32*RPB12-RB12*RPA32)-AAB13*(RB34*RPA14-RA14* 

1  RPB34 ) -AAB24*( RA14*RPB12-RB12*RPA14 ) -AAB42* ( RA32*RPB34- 

2  RB34*RPA32) ) 

A32-.25*(  AAB31*(  ZB12*ZPA32**ZA32*ZPB12  )  +AAB13*(ZB34*ZPA14-ZA14* 

1  ZPB34)+AAB24*(ZA14*ZPB12-ZB12*ZPA14)+AAB42*(ZA32*ZPB34- 

2  ZB34*ZPA32 ) ) 

A33-.25*(AAB31*(RA32*ZPB12-RB12*2PA32)-AAB13*(RB34*ZPA14-RA14* 

1  ZPB34)-AAB24*(RA14*ZPB12-RB12*ZPA14)-AAB42*(RA32*ZPB34- 

2  RB34*ZPA32 ) ) 

T22-A2 2**2+ A 32**2 
T23«A22*A23A+A32*A33 
T33«A23A**2+A33**2 
IF( T23.EO.O* ) GO  TO  30 

10  ROOT-SQRT< ( T22-T33 )**2+4.*T23**2  > 

TERM-  ( T22+T33) 

El  -$QRT(.5*(TERM+RQ0T)) 

E2  -SORT ( .5*( TERM-ROOT ) ) 

ROOT  1-SORT  (  T 23**2  +  ( T22-El**2 ) **2 ) 

RROOT 1-1. /ROOT 1 
LY1 ( J ) -T23*RROOTl 
LY2( J)«(T22-E1**2 )*RRG0T1 
ROOT2-SQRT ( T23**2+( T22-E2**2 )**2 > 

RROOT2-1./ROOT2 

LZ1 ( J) *T23*RROOT  2 

LZ2 ( J ) ■ ( T22—E2**2 ) *RROOT  2 

IF(  ABS(  LY1(  J  )  )  *LT  •  ABS  (  LZ1  (  J  )  )  (GO  TO  30 

IFILYK Jl.GT.O)  GO  TO  20 

LYIIJ)-LYI(J) 

LY2  (  J) *-LY2 ( J ) 

20  IF(LZ2(J)  121.21.100 

21  LZ1 ( J)--LZ1 ( J) 

LZ2 ( J ) --LZ2 ( J ) 

GO  TO  100 

30  IF(LZ1< JJ.GT.O)  GO  TO  40 

LZ1I  J)—  LZ1I  J) 


295 


L22< J)«-lZ2< Jl 

40  IF(LY2 ( J) *GT *0)  GO  TO  45 

LY1( J)*-LYlt J» 

LY2( JI«-LY2( J) 

45  MS»LY1(J) 

LVK  J)»L21(  J) 

LZ1< J)»WS 
WS»LY2( J) 

LY2( J)*L22( J) 

L22I JI*WS 
GO  TO  100 

50  El  *SQRT(T22I 

LY1( J)«l. 

LY2( JJ*0. 

E2  *SQRT ( T  3  3 ) 

L21( J)«0. 

L22( Jl«l. 

100  E3«VOL(  J.U/(FMASN<J*L)*VO<  J»L)*E1*E2> 
EPY ( J ) *E1-1* 

EP2( J)*E2“1* 

EPX< JI-E3-1. 

200  CONTINUE 

RETURN 
END 


I 
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c 

c 

c 

c 

c 

c 


SUBROUTINE  STRESS  L 
SUBROUTINE  STRSOO 

COMMON/ INDUMP/  NREG*  ROTNM*  MOTION*  JBMlNt  JBMAX*  XBM1N* 

2  XBMAX*  TIME*  SMOMZI*  SMZTPT*  SMOMZ*  SMOMYl*  SMYTPT •  SMOMY* 

3  SENERI •  SIETPT •  SXETPT •  WORK*  SUHIE*  SUMXE*  SUMTE*  FIMPZ* 

4  FIMPY.  SMASSI*  SMSTPT*  SMASS*  PROBNO*  OTNM*  CUTOFF*  N* 

5  XBOT •  XTOP,  MAXN*  TMAX*  DTNMN*  SFW*  DTNMP5 •  DTNM2* 

6  XB*  CUT  1 •  CUT2*  UYLB1N*  UYBIN*  UYRB1N*  UZLBIN*  UZttlN* 

7  UZRBIN*  UYLTIN*  UYTIN*  UYRTIN*  UZLTIN*  UZTIN*  UZRTIN.  XTM* 

8  JMIN.  JMAX*  XMIN*  XMAX*  JL»  J3*  JR*  JRM* 

9  XT*  E IN( 5 ) •  XINT IS)*  RHOINI5),  UYIN(5).  UZIN(5)» 

2  TINY  A  ( 5  )  •  TINY  BIS)*  R  ZEROI5) *BETA( 5) •  QCONIS)* 

A  E  SIS)*  ALFA(S)*  BIG  AIS)»  BIG  BIS)*  RCP  V  SIS)*E  ZERUIS)* 
4  FMLZRI 100) •  XSVI24 ) *  SAVI 12) •  FMLYRl 100) 

COMMON/THEREST/  AI55)*  DIL(SS)*  EPXISS)* 

2  EPY I SS ) *  EPZISS)*  FMLYBI SS ) •  FMLYTI55).  FMLZ6I5S). 

3  FMLZTI55)*  LY1ISS)*  LY2IS5)*  LZ1ISS)*  LZ2ISS) • 

4  PYISS).  PZISS)*  R1HISS )  •  R2HISS)*  R3HISS) • 

5  R4H I SS ) *  Z1HISS)*  Z2HI55).  Z3HISS) •  Z4HIS5)* 

6  U2 1 SS *2 )  •  BI55.4) 

COMMON/ AFTER ALL/ 


A 

RX  1 55*5 ) • 

RY ( 55*5 ) • 

UNMX  (55*5)* 

1 

UNMYI55.5). 

UNPXI 55*5 ) • 

UNPY(55*5)  • 

FMASNMI 55 *5 )  • 

2 

ENMI55.5). 

ENI55.5). 

PNM  ( 55,5 )  • 

PN(  55  *5 )  • 

3 

PQNMXX 155.5)* 

PQNMXY (55*5) • 

POMMY Y ( 55,5 )  • 

PONXX ( 55*5)* 

4 

PQNXY 155*5)* 

PQNYY I  55*5 ) • 

RMA3Z( 55 *5 )  • 

RWA1ZI55.5 ) * 

5 

RWAE3Z (55*5)* 

RWAEIZI 55*5 ) • 

RH3Z(55*5). 

RH1Z ( 55*5 ) • 

6 

E3Z (55*5)* 

E1ZI 55*5) • 

RHO (55*5)* 

VOL<  55*5)  • 

7 

ETA  1 55 • 5  )  • 

A1YI55.5). 

A2Y (55*5 ) • 

A3Y ( 55*5 ) * 

6 

A4YI55.5)* 

A1ZI55.5). 

A22 (55*5)* 

A3Z (55*5), 

9 

A4Z (55*5)* 

F1YI55.5). 

F2Y ( 55*5  ) » 

F3Y ( 55*5 ) » 

A 

F4Y (55*5)* 

F1Z I  55  *5 ) • 

F2Z ( 55  *5  ) » 

F3Z ( 55*5 ) » 

1 

F4Z (55*5)* 

NTPT (55*5)* 

FMSNZ  (55  *5 )  • 

FMASN (55*5), 

2 

FMNMX 155*5) • 

FMNMY (55*5)* 

FMNX(55*5 )  • 

FMNY ( 55*5 ) * 

4 

AMI  I  55  *5  )  * 

AW2 (55*5)* 

AM 3(55*5)* 

.  AW4( 55*5 ) » 

5 

RXMI 55*5)* 

RYMI55.5) . 

RXZ (55*5 )  * 

RYZ (55*5) » 

6 

011(55*5)* 

012(55*5)* 

022(55*5), 

0X155*5) • 

7 

Pll (55*5 )  • 

P12 (55*5)* 

P22 (55*5  )  * 

PX( 55*5) » 

8 

PQXI 55  *5  )  • 

PQMX (55*5)* 

VO ( 55*5 ) 

COMMON  ICON*  LINCT*  LXl.  LX2*  LX3.  LX4.  LXS* 

2  KC*  NOPA*  NEOIT*  NSIGt  NMASS*  NOMP 

REAL  LY1*  LY2*  LZ1.  LZ2*  LAMMA*  LAMOIL 

EQUIVALENCE  I  LAMMA(l)  .TINY  A  <  1 ) ) » (  EMUI 1 )  *TINY  BID) 

DIMENSION  LAMMA ( 5 ) •  EMUIS) 

ENTRY  STRESSP2 

L-LX3 
L2*LX4 
GO  TO  1 

# 

ENTRY  STRESSP 

■* 

L-LX2 
L2-LX3 
GO  TO  1 

ENTRY  STRESS 

•* 

L-LX1 

L2*LX2 
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GO  TO  1 

1  EMU2«-2#»EMUINREG) 

00  41  JR 

ETAC J#L  )»RH0( J»L) *V0( J»L) 

LAMOI L*LAMMA(NREG )*DI L ( J ) 

PY ( J ) ■ EMU2*EP Y ( J ) -L AMO I L 

P2  <  J I >EMU2«EPZ ( J ) -LAMOI L 

PXI J#L I ■EMU2*EPXC JI-LAMDlL 

Pill J#L)*LY1< J)**2*PYf JI+LZ1I J)**2*PZ( Jl 

P12 ( J t L ) *LY 1 ( J) *LY2 I J ) *PY( J I+LZl t  J)*LZ2( J )*P2t  J ) 

P22C J#L  )*LY2 1 J)#*2*PYI JI+LZ2I Jl**2*PZ( J) 

Q11U#L)*Q12IJ#U*Q22I  J#L)  «QX(  J#L)«0# 

41  CONTINUE 

IFI (KC+1).EQ.KINT(NREG) IRETURN 

60  CALL  FORCES 

CALL  ENERGY 
RETURN 
END 
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